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ABSTRACT 


A  semi-empirical  model  for  the  Fourier  synthesis  of 
deepwater,  wind-wave  scenes  has  been  constructed  for  the 
analysis  of  water-wave  slope  spectra.  The  main  simplifying 
assumptions  of  this  model  are  1)  fully- developed  wind-wave- 
surfaces  are  quasi-homogeneous ,  quas i - s tationary  and  are 
therefore  treatable  by  Fourier  methods,  2)  the  subsurface  is 
both  optically  and  mechanically  deep,  and  3)  the  small  range 
of  spectral  wave  components  defines  a  fetch- limited ,  small- 
amplitude  condition.  A  nonlinear  transformation  of  wave 
slope  to  reflected  and  refracted  radiance  in  both  horizontal 
and  vertical  polarizations  was  effected  under  the  special 
conditions  of  Brewster-angle  viewing  under  clear  skies  at-  a 
spectral  wavelength  of  460  nanometers^  Seventy  two  synthe¬ 
ses  were  varied  — sHc  distinct  solar  po.si- 

tions,  f  oj^r^dd-s^lnc  t  wind  directions,  and  three  distinct 
wind  v-edToci ties  . 

^he  synthetic  wave  scenes  were  analyzed  via  the  forward 
Fourier  transformation  and  their  radiance  magnitude  spectra 
were  compared  with  the  original  slope  magnitude  spectra  of 
the  initial  synthesis  in  order  to  estimate  the  effects  of 
the  nonlinear  radiance  transformation  on  the  recovery  of  the 
wave  slope  spectrum  from  imagery. \  Within  the  boundaries  of 
this  study,  it  was  determined  thatjl)  the  limited  results  of 
Chapman  and  Irani  [19  81]  have  been  ge  tier  ally  verified ,  2) 

the  existence  of  an  optimal  imagine  geometry  for  slope  spec¬ 
trum  estimation  is  indicated ,  and]  3 )  the  presence  of  sub  - 


resolution  wave  slopes  creates  a  significant  effect 
slope  spectra  derived  from  imagery j 
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1 . 0  INTRODUCTION 


The  intent  of  this  study  is  twofold: 

1)  The  first  goal  is  to  construct  a  reasonable  linear  model 
to  describe  the  interaction  of  wind-driven  water  waves  with 
the  two  primary  sources  of  natural  illumination:  the  down- 
welling  sun  and  sky  radiance  (of  which  a  fraction  is  reflec¬ 
ted  in  the  direction  of  an  overhead  observer)  and  the  up- 
welling  back- scat tered  subsurface  radiance  (of  which  a  frac¬ 
tion  is  refracted  in  the  direction  of  an  overhead  observer) . 
This  linear  model  will  be  used  to  create  synthetic  scenes  of 
wind-driven  water  waves  and  derive  their  radiance  magnitude 
spectra , 

2)  The  second  goal  is  to  analyze  the  spatial  radiance  dis¬ 
tribution  of  the  synthetic  wave  scenes  with  respect  to  sun 
position,  wind  direction,  wind  velocity,  polarization,  and 
sub  -  resolution  slope  variance  in  order  to  compare  the  magni¬ 
tudes  of  error  that  arise  from  the  treatment  of  the  radiance 
image  magnitude  spectrum  as  a  linearizable  reconstruction  of 
the  slope  magnitude  spectrum  of  the  imaged  water  surface. 

This  study  is  essentially  an  amplification  and  extension  of 
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the  work  of  Chapman  and  Irani  [1981]. 

In  the  1950s,  the  two  unrelated  fields  of  oceanography 
and  photographic  science  both  experienced  a  minor  renais¬ 
sance  with  the  introduction  of  the  concepts  of  stochastic 
processes  and  power  spectral  analysis  that  were  first  ap¬ 
plied  in  communications  engineering  [Blackman  &  Tukey, 
1958].  Power  spectral  analysis  provided  a  powerful  analy¬ 
tical  tool  to  photographic  science  for  evaluating  image 
quality;  likewise,  power  spectral  analysis  provided  a  lin¬ 
ear,  statistical  mechanism  to  oceanography  for  evaluating 
the  large  number  of  deterministic  theories  concerning  the 
development,  propagation,  and  decay  of  water  waves  [Kinsman, 
1965  ].  An  excerpt  of  a  let'ter  from  the  oceanographer.  Dr. 
Walter  Munk,  to  Drs .  Blackman  and  Tukey  gives  an  indication 
of  beneficial  results  that  were  obtained  with  the  new  meth¬ 
ods  : 

"...we  were  able  to  discover  in  the  general 
wave  record  a  very  weak  low-frequency  peak  which 
would  surely  have  escaped  our  attention  without 
spectral  analysis.  This  peak,  it  turns  out,  is 
almost  certainly  due  to  a  swell  from  the  Indian 
Ocean,  10,000  miles  distant.  Physical  dimensions 
are:  1  mm  high,  a  kilometer  long."  [Blackman  & 
Tukey,  1958) 

Oceanographers  had  previously  developed  a  number  of  photo¬ 
graphic  techniques  to  capture  and  optically  analyze  large 
amounts  of  high- resolution ,  two-dimensional  (2D)  spatial 
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information  about  water-wave  surface  structure  (Hulburt, 
193U;  Barber , 1949 , 1954 ;  Cox  &  Munk, 1954a, b ;  Schooley , 1954 ; 
Pierson ,  1960  ]  .  It  was  not  until  the  advent  of  the  digital 
computer  and  the  implementation  of  the  digital  Fast  Fourier 
Transform  (FFT)  that  oceanography  was  able  to  efficiently 
analyze  the  wave  scene  into  its  spectral  components  and 
derive  the  directional  2D  spectrum  for  elevation  and  slope 
[ Kinsman , 1965 ;  Pierson  &  Stacy, 1973].  The  current  study  is 
a  continuation  of  existing  research  which  analyzes  digital 
images  of  water  waves  through  digital  simulations-. 

The  current:  study  builds  upon  the  work  of  Chapman  and 
Irani  [1981).  They,  in  turn,  extended  the  work  of  Stilwell 
[1969;  Stilwell  &  Pilon,1974]  and  Kasevich  [1975;  Kasevich 
et  al ., 1971 , 1972 ]  in  an  attempt  to  quantify  the  parametric 
nonlinearities  that  may  exist  between  the  slope  magnitude 


spectrum 

of 

the 

water  surface 

and  the 

radiance  magnitude 

spectrum 

of 

the 

water  surface 

image 

as  a  linearizable 

reconstruction  of  the  slope  magnitude  spectrum  of  the  actual 
water  surface.  The  current  study  reconstructs  the  synthetic 
model  of  Chapman  and  Irani  with  some  selected  modifications 
and  enhancements : 


1)  no  sensor  or  path  radiance  model  is  introduced  as  the 
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intent  of  this  study  is  to  estimate  only  the  effects  of  wave 
and  illumination  geometry  on  the  nonlinear  transformation  of 
slope  to  radiance, 

2)  a  correlation  model  is  introduced  to  provide  a  conserva¬ 
tive  spatial  filter  for  synthesizing  the  effects  of  sub-res¬ 
olution  wave-slope  variance  on  the  image  spatial  radiance 
distribution , 

3)  a  subsurface  upwelling  refracted  radiance  model  is  intro¬ 
duced  to  provide  an  additional  nonlinear  element  to  the 
analysis  and  to  more  adequately  model  the  slope  spectra  ob¬ 
tained  from  visible  images, 

4)  the  zenith  angle  of  observation  is  set  at  the  Brewster 
angle  (relative  to  mean  sea  surface)  in  order  to  define  the 
extent  to  which  the  nonlinear  transformation  is  affected  by 
vertically  polarized  radiance  added  by  the  variance  of  wave 
slopes,  and 

5)  the  analysis  of  normalized  difference  spectra  is  intro¬ 
duced  in  order  to  provide  a  more  direct  correspondence  with 
the  analysis  of  slope  variance  as  calculated  from  integrated 
power  spectra. 
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The  remainder  of  the  Introduction  is  organized  into 
four  sub-chapters : 

Chapter  1.1  introduces  the  topic  of  wind- generated  waves, 
with  emphasis  on  the  small  nonlinearities  that  must  be 
considered . 

Chapter  1.2  is  an  overview  of  the  development  of  realistic 
syntheses  of  water-wave  scenes,  with  emphasis  on  synthetic 
radiance  imagery. 

Chapter  1.3  is  an  overview  of  the  development  of  image 
analysis  of  water-wave  scenes,  with  emphasis  on  wave-slope 
spectrum  analysis. 

Chapter  1.4  is  a  review  of  the  pertinent  research  which  pre¬ 
cedes  the  current  study,  with  emphasis  on  the  development  of 
the  first-order  theory.  Extracts  from  the  introductory 
analysis  of  Kasevich  [1975]  and  Stilwell  [1969]  are  presen¬ 
ted,  followed  by  an  overview  of  both  the  simulation  experi¬ 
ment  of  Chapman  and  Irani  [1981]  and  the  experimental  design 
of  the  current  study. 
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1.1  Introduction  to  Wind-Driven  Water  Waves 


Fully  three  quarters  of  the  planet  is  covered  with  a 
layer  of  water;  except  for  the  rare  instances  of  sustained 
windlessness  where  the  surface  is  smooth  and  specular,  the 
water  surface  is  disturbed  by  the  addition  of  directional 
friction  energy  applied  by  wind  passing  over  the  surface. 
(Tides,  Cor iolis - force  waves,  earthquake  -  generated  waves, 
and  other  very- long-period  waves  are  not  considered  here.) 
Up  to  some  maximum  wind  velocity,  the  disturbed  surface 
remains  analytic  (infinitely  differentiable)  and  can  be 
described  as  a  quasi-stationary ,  pseudo-Gaussian  process 
[ Kinsman , 1965 ]  with  an  approximate  power  elevation  spectrum. 

Figure  1.1:1  illustrates  Dr.  Kinsman's  relative  estimation 
of  the  power  elevation  spectrum  describing  the  energy 
contained  in  the  surface  waves  of  the  oceans.  Note  that 
energy,  ,  is  proportional  to  | elevation | ^ . 

The  nonlinearities  of  real  water-wave  surfaces  can  be 
attributed  to  four  dominant  factors  ( Kinsman , 1965 ; 
LeMehaute , 1976 ] : 

First,  wind  energy  is  added  to  the  water  in  a  directional 
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and  time-variant  manner.  Cox  and  Munk  [1954a, b]  found  the 
wave-slope  distribution  to  be  nearly  Gaussian,  as  would  be 
expected  for  a  continuous  wideband  spectrum.  However,  the 
cross-wind  distribution  of  slopes  is  symmetric  and  the 
along-wind  distribution  is  slightly  skewed  so  that  the  most 
probable  wave  slope  is  directed  upwind,  a  result  they 
attributed  to  directional  wind  stress. 


FIGURE  1.1:1.  Schematic  representation  of  the  energy 
contained  in  the  surface  waves  of  the  oceans  -  4n  fact,  a 
guess  at  the  power  spectrum,  (from  Kinsman , 1965 ) 


Second,  both  gravitational  and  molecular  forces  act  on 
material  water  waves  to  inhibit  random  generation  of  very- 
large  -  elevation  waves  and,  in  the  derivative,  random 
generation  of  very  steep  wave  slopes.  Also,  the  natural 
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propagation  state  of  a  high-amplitude,  narrowband  water  wave 
is  cycloidal  rather  than  sinusoidal,  i.e,  with  elongated 
flat  troughs  and  shorter  peaked  crests.  This  cycloidal  form 
diminishes  as  the  sea  state  increases  and  spectral  wave- 
component  energy  is  transferred  over  a  wider  band  of  wave¬ 
numbers,  but  it  does  not  disappear.  Therefore,  the  wave 
surface  is  pseudo  -  Gauss  ian  in  that  the  elevation  and  slope 
distributions  exhibit  a  slight  kurtosis  (peakedness)  and  a 
truncation  of  the  large -variance  components.  Cox  and  Munk 
correlated  their  results  with  a  Gram- Charlier  representation 
of  a  Gaussian  distribution  to  account  for  this  slight  skew¬ 
ness  and  kurtosis. 

Figure  1.1:2  illustrates  the  cross-wind  and  along-wind 
distributions  of  wave  slopes  (from  Cox  6c  Munk, 1954b). 

Note  that  the  curves  are  normalized  to  equal  areas. 

Third,  there  is  a  nonlinear  transfer  of  wave  energy  from  the 
high-frequency  components  of  the  wave  spectrum  to  the  low- 
frequency  components  as  a  function  of  time,  fetch,  and  sea 
state.  As  previously  mentioned,  there  is  some  maximum  wind 
velocity  beyond  v;hich  the  water  surface  acquires  excessive 
energy,  which  leads  to  instability  and  a  consequent  loss  of 
analytic  structure.  A  familiar  manifestation  is  white- 
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capping  of  the  waves.  Up  to  this  point  of  fully- developed 
sea  state,  the  effect  of  wind  energy  is  to  generate  small- 
amplitude  capillary  waves  which  tend  to  become  dampened  by 
surface  tension  and  which  impart  energy  to  the  lower-fre¬ 
quency  waves  upon  which  they  are  riding.  In  1847,  Stokes 
[1880]  defined  the  maximum  wave  slope  which  each  wave  com¬ 
ponent  could  attain  before  it  became  unstable;  each  spectral 
component  transferred  energy  to  lower  frequencies  until  sat¬ 
uration;  if  the  lower  regime  was  saturated,  whitecapping 
resulted.  Within  the  range  of  gravity  waves,  the  maximum 
wave  slope  is  approximately  1/7.  For  capillary  waves,  the 
maximum  wave  slope  can  approach  1/1.  Chapter  2.2  will  il¬ 
lustrate  the  fact  that  the  greater  part  of  the  slope  var¬ 
iance  from  a  fully- developed  wind-wave  surface  is  due  to 
capillary  waves. 


Fourth,  water  waves  refract  in  the  presence  of  subsurface 
obstacles  just  as  light  refract,  in  the  presence  of  media 
with  differing  refractive  indices.  Refractive  nonlinear¬ 
ities  appear  only  when  the  ratio  of  wavelength  to  depth 
becomes  large.  As  long  as  the  deepwater  condition  is  sat¬ 
isfied  (i.e.  the  longest  wavelength  under  consideration  is 
small  relative  to  depth/  the  wave  surface  remarns  linear 
with  respect  to  subsurface  refraction. 
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FIGURE  1.1:2,  Facet  slope-angle  (beta)  distribution 
probability  for  a  wind- roughened  sea,  computed  for  various 
wind  speeds  by  means  of  the  Cox  &  Munk  probability  function, 
(from  3idran,1981) 


In  sum,  a  linear  model  for  a  synthetic  water  surface 
would  most  accurately  describe  inf inite - fetch ,  fully  devel¬ 
oped  wind  waves  propagating  over  deep  water  and  with  steady 
homogeneous  winds  blowing  in  a  constant  direction  at  veloc¬ 
ities  well  below  the  point  of  spectral  saturation.  The 
predominant  discrepancy  of  a  linear  model  is  that  the  lack 
of  directional  skew  allows  a  180-degree  ambiguity  in  the 
direction  of  wind  propagation. 
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1.2  Image  Synthesis  of  Water-Wave  Scenes 


An  Overview 

The  subject  of  image  synthesis  is  best  introduced  by 
Upson : 

"Within  computer  graphics  and  animation,  two 
major  sub  -  disciplines  have  developed:  graphics  for 
entertainment  or  artistic  purposes,  and  graphics  ' 
for  scientific  or  technical  purposes.  Computer 
scientists  working  on  entertainment  applications 
have  emphasized  the  correct  visual  representation 
of  natural  phenomena  and  have  developed  ad  hoc 
physical  simulations  to  accomplish  this.  Computa¬ 
tional  scientists  working  in  the  physical  sciences 
have  devoted  their  efforts  to  the  underlying  phys¬ 
ics  for  simulating  phenomena,  with  little  emphasis 
on  the  visual  representation. 

In  recent  years  these  two  approaches  have 
begun  to  reach  the  limits  of  their  ability  to  work 
without  each  other.  The  realism  required  in  en¬ 
tertainment  animation  is  beyond  that  obtainable 
without  physically  realistic  models.  Similarly, 
numerical  simulations  in  the  physical  sciences  are 
complex  to  the  point  of  being  incomprehensible 
without  visual  representations."  [Upson, 1987] 


Progress  in  the  image  synthesis  of  natural  phenomena  is 
occurring  within  three  overlapping  lines  of  research: 

1)  geometric  models  which  provide  a  more  accurate  model  of 
natural  texture  and  shape, 

2)  illumination  models  which  provide  a  more  accurate  model 
of  the  physical  interaction  between  light  and  matter,  and 

3)  temporal  models  which  provide  a  more  accurate  model  of 
the  equations  of  motion  for  natural  systems. 
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Most  research  devoted  to  the  realistic  synthesis  of  water- 
wave  scenes  has  occurred  within  the  last  uecade  as  part  of 
the  general  interest  in  rendering  of  complex  natural  phe¬ 
nomena  by  computer.  Early  artistic  renderings  concentrated 
on  generating  low  oblique  scenes  with  realistic  surface 
texture  but  with  little  attention  to  correct  illumination 
effects.  Early  scientific  renderings  concentrated  on  the 
generation  of  near-nadir  scenes  with  correct  radiometry  in 
order  to  simulate  remotely  sensed  oceanographic  imagery 
having  low  spatial  resolution. 

Whitted  [1980]  created  one  of  the  earliest  attempts  at 
rendering  water  waves  in  his  film  "The  Compleat  Angler". 
The  ripples  on  a  flat  pool  surface  were  generated  by  ''bump 
mapping',  where  the  surface  normal  was  perturbed  by  a  single 
sinusoidal  function.  Bump  mapping  was  first  introduced  by 
Blinn  [1978],  Information  International  used  a  similar 
technique  with  cycloidal  waveforms  to  create  a  leader  for 
Pyramid  Films  [1981].  Berlin  [1985]  amplified  this  tech¬ 
nique  by  us ing  20  superimposed  cycloidal  waveforms ,  each 
radiating  from  randomly  selected  centers.  The  character¬ 
istic  limitation  of  bump  mapping  is  that  the  actual  surface 
is  flat;  there  is  no  change  in  surface  height  to  correspond 
to  the  perturbation  of  a  local  normal  vector . 
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Schacter  (1980)  developed  a  scalar  texture  model  for 
realtime  image  generation  of  waves,  using  sums  of  three  or 
fewer  long - cres ted ,  narrowband  noise  waveforms.  This  sto¬ 
chastic  geometric  model  was  intended  for  realtime  image  syn¬ 
thesis  of  a  variety  of  textured  surfaces  or  random  fields 
with  no  regard  to  the  physics  of  surf ace  -  light  interaction. 
Norton  et  al.[1982]  employed  frequency- limited  (or  'clamp¬ 
ed')  analytical  functions  for  the  same  purpose. 

Max  (1981)  used  a  vectorized  ray-tracing  algorithm  on  a 
Cray-1  supercomputer  to  model  optical  reflection  on  water 
waves  for  use  in  a  color  animation  film  “Carla's  Island". 
The  wave-surface  height  field  was  modeled  by  superimposed 
traveling  sine  waves.  Each  ray  was  constrained  to  reflect 
off  the  water  at  most  two  times  before  it  proceeded  to  other 
scene  elements.  Howeve.  ,  no  effort  was  made  to  accurately 
model  the  attenuated  spectral  radiance  of  the  synthetic 
scene;  a  geometric  rule-of-thumb  approach  was  used  to  com¬ 
pute  each  pixel  based  on  a  weighted  average  of  'sun  color' 
and  'sky  color'  that  were  input  from  an  RGB  (Red-Green-Blue) 
translation  table , 

In  1985,  Ts '  o  and  Barsky  [1987  ]  applied  the  Stokes 
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model  of  the  sea  surface  and  generated  height  ’fields  by 
fitting  beta-splines  with  parameters  that  yielded  symmetric 
waves.  This  model  simulated  directional  refraction  of  water 
waves  due  to  interaction  with  the  ocean  floor.  Peachey 
(1986)  similarly  implemented  the  Stokes  model  as  a  height 
field  but  used  quadric  surfaces  to  create  asymmetry.  This 
synthesis  also  used  a  part icle - system  model  to  simulate  the 
effects  of  surf  spray  on  a  beach  but  without  the  effect  of 
directional  refraction.  Peachey  gave  some  thought  to  sur¬ 
face  reflection  of  skylight  but  ultimately  assumed  a  Lamber¬ 
tian  approximation  for  rough  surfaces  in  the  calculation  of 
pixel  brightness.  Fournier  and  Reeves  [1986]  reviewed  the 
work  of  the  previous  authors  and  produced  a  Gerstner  wave 
model  that  incorporated  a  wind  field  and  a  stochastic  ele¬ 
ment  to  perturb  the  wave  model  in  addition  to  the  previously 
noted  features.  Even  in  this  final  product,  reflection  is 
simulated  by  a  one-level  ray  trace  with  selective  filtering 
of  the  RGB  color  'spectrum'. 

Fractal  and  sequential  Markov-chain  synthesis  tech¬ 
niques  have  been  developed  to  simulate  the  texture  of  many 
natural  surfaces  including  ocean  waves  [Mandelbrot , 1977 , 
1988;  Ga^alovjicz  &  Ma,1985;  Monne  et  al.,1981).  In  general, 
these  techniques  are  considered  to  produce  poor  synthetic 
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water-wave  images.  The  main  objection  to  the  surfaces 
generated  by  these  processes  is  that  they  are  not  contin¬ 
uously  differentiable.  The  surface  normal  vector  at  a  point 
can  only  be  approximated  via  a  neighborhoou  average.  How¬ 
ever,  it  is  interesting  to  note  (in  the  context  of  wave 
surfaces)  that  the  mathematician  Karl  Weierstrass  developed 
the  first  fractal  function  by  describing  an  infinite  series 
of  superimposed  harmonic  sinusoids: 

f(t)  =  (l)COS(w*t)+(l/a)COS(b*w*t)+(l/a2)COS(b2*w*t)+. . .  , 

to  yield  a  series  representation  of  a  continuous  yet  non- 
dif f erentiable  function.  In  this  particular  case,  the 
fractal  dimension  d  -  LN(a)/LN(b). 

Mastin  et  al.[1987]  recognized  the  inadequacy  of  the 
fractal  model  for  ocean  scenes  and  instead  treated  water 
surfaces  as  filtered  white-noise  processes.  For  his  filter, 
Mastin  used  a  modified  Pierson-Moskowitz ,  teropora],- domain , 
elevation  power  spectrum  for  fully  -  developed ,  wind-driven 
seas.  A  white-noise  surface  was  filtered  in  the  frequency 
domain  and  then  inverse  -  Four ier - trans formed  to  create  the 
synthesized  v/ave  image.  The  surfaces  were  animated  by 
varying  the  phase  of  the  frequency  components  between  each 
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frame,  based  on  the  dispersion  relation  between  phase  veloc¬ 
ity  and  wave  frequency.  Mastin  employed  a  simple  illumina¬ 
tion  model  to  render  the  scenes  but  indicated  that  "incor¬ 
poration  of  Fresnel's  law  into  the  reflectance  model  would 
probably  enhance  image  quality, " 

Borrego  and  Machado  [1985]  used  essentially  the  same 
filter  technique  as  Mastin  but  with  a  Pierson-Neumann  spec¬ 
trum.  They  wrote  their  images  to  photographic  film  and  then 
analyzed  the  film  via  the  optical  Fourier  transformation  and 
optical  cross  -  correlation  in  order  to  compare  synthetic 
results  with  real  photographs  of  the  sea.  They  did  not  use 
any  illumination  model  -  density  values  on  film  corresponded 
to  surface  height  -  since  their  analysis  was  only  a  first- 
order  approximation. 

Attempts  to  combine  a  water-wave  surface  model  with 
correct  radiorae try  are  fewer  in  number : 

Chapman  and  Irani  [1981]  attempted  to  quantify  the 
error  magnitudes  associated  with  linearizing  the  relation¬ 
ship  between  the  spatial  frequency  spectrum  of  an  image  and 
the  slope  spectrum  of  the  actual  water  surface-.  Their 
radiometric  model,  though  incomplete,  is  the  most  comprehen- 
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sive  found  within  this  survey.  It  will  be  described  in 
detail  in  the  Methods  section  as  their  combined  model  pro¬ 
vides  the  point  of  departure  for  the  current  s tudy , 

Wilf  and  Manor  [1984]  applied  the  Chapman  and  Irani 
model  to  a  restricted  case:  the  simulation  of  water-wave 
images  in  the  far  infrared.  They  simplified  their  model 
with  the  assumption  of  a  Forward  Looking  Infra-Red  (FLIR) 
sensor  having  limited  spatial  resolution  and  sensitivity. 
Schwartz  and  [unpublished]  and  Masuda  et  al.  [  1988  ]  also 
limited  the.  r;  models  to  the  far  infrared  with  the  intent  of 
simulating  th  angular  effect  of  eroissivity  on  sea  tempera¬ 
ture  variation  due  to  wind- roughened  water. 

It  is  apparent  from  this  overview  that  the  field  of 
image  synthesis,  with  emphasis  on  rendering  of  water  waves, 
is  less  than  a  decade  old .  The  integration  of  radio  me  try 
within  these  syntheses  has  occurred  infrequently  and  for  a 
limited  objective  in  each  instance. 
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1.3  Image  Analysis  of  Water-Wave  Scenes 


An  Overview 

In  1925,  Schumacher  made  oblique  stereo-pairs  from  a 
ship  with  the  intent  of  measuring  the  variability  of  wave 
heights ,  The  utility  of  this  method  was  severely  limited 
due  to  many  factors:  1)  the  camera  baseline  was  restricted 
to  the  length  of  the  ship;  2)  waves  in  the  fo>*eground  ob¬ 
structed  waves  in  the  background;  3)  backsides  of  waves  were 
not  visible;  and  4)  there  was  a  lack  of  'ground'  control  on 
open  seas  for  height  determination  -  the  errors  are  espe¬ 
cially  pronounced  from  an  oblique  perspective  [Pos,1988]. 

In  19  33 ,  Hulburt  [ 19  34 ]  made  polarized  and  unpolarized 
oblique  photographs  of  sun  glitter  on  sea  waves  to  measure 
the  polarization  of  light  at  sea  with  respect  to  surface 
roughness,  sun  angle,  and  weather  conditions.  Because  the 
widths  of  glitter  patterns  correlate  to  the  maximum  slope  of 
the  sea  surface,  Hulburt  was  able  to  demonstrate  that  waves 
in  the  North  Atlantic  varied  from  15  degrees  inclination 
when  winds  were  blowing  at  3  knots  up  to  25  degrees  incli¬ 
nation  at  18  knots. 

Sawyer  [1949]  mounted  a  Sonne  strip  camera  on  a  fast 
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low-flying  airplane  to  photograph  narrow  strips  o.f  the  sea 
surface  and  measure  the  airectional  spectrum  of  the  waves*. 
The  field  of  view  was  too  narrow  to  capture  significant 
amounts  of  surface  data  orthogonal  to  the  flightline.  The 
accuracy  of  the  spectral  estimate  decreased  with  the  angle 
from  the  flightline. 

Also  in  1949,  Barber  [1949,1954]  analyzed  single  photo¬ 
graphs  of  sea  surfaces  to  determine  wave  direction  but  he 
was  unable  to  determine  the  two-dimensional  (2D)  spectrum 
due  to  the  computing  limitations  of  the  time.  At  this 
point,  it  became  apparent  that  an  essential  requirement  for 
future  analysis  of  water-wave  surfaces  was  to  have  near-ver¬ 
tical,  high-resolution,  high- contras t  images  covering  large 
areas.  The  intent  was  to  photographically  capture  signifi¬ 
cant  information  about  the  largest  range  of  spatial  fre¬ 
quency  components  without  perspective  distortion  or  hidden 
surface  detail.  It  also  became  apparent  that  the  analysis 
of  large  amounts  of  spatial  information  required  the  power 
of  a  digital  computer . 

In  1951,  Cox  and  Hunk  [1954a, b]  measured  the  wave-slope 
distributions  o,f  the  sea  surface  from  aerial  photographs  of 
sun-glitter  patterns.  They  computed  the  distribution  from 
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the  measured  variation  of  radiance  within  a  glitter  pattern 
instead  of  computing  maxima  from  the  pattern  boundaries  as 
done  by  Hulburt.  Four  cameras  were  flown  from  a  single 
airplane  at  altitudes  of  2000  feet,  with  two  used  as  imagers 
and  two  used  as  radiometers.  Their  image  analysis  was  quite 
sophisticated;  it  accounted  for  sun  diameter,  angular  re¬ 
flectivity,  lens  falloff,  film  sensitivity,  exposure  cali¬ 
bration,  and  ultimately  provided  a  first-order  relationship 
between  film  density  and  directional  wave-slope  probability. 

In  1953,  Schooley  (1954)  performed  a  simplified  version 
of  the  Cox  and  Munk  experiment  by  taking  flash  photographs 
of  a  river  surface  from  a  45-foot  bridge  elevation  at  night. 
The  main  limitation  of  his  experiment  was  the  probable  in¬ 
homogeneity  of  the  water  surface  due  to  limited  fetch  and 
the  presence  of  surrounding  obstacles. 

In  1954,  medium- altitude  (3000  ft)  stereophotography 
was  employed  by  Marks  and  Ronne  [1955]  to  generate  stereo¬ 
pairs  of  sea  surfaces.  Two  airplanes  carried  radio  -  synchro - 
nized  cameras  and  a  surface  ship  acted  as  'ground'  control 
in  the  photographs.  Elevations  were  photogramme trically 
measured  at  discrete  points  and  the  sampled  elevation  array 
was  then  auto  -  correlated  (the  sampling  distance  determined 
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the  desired  spectral  resolution).  This  experiment  marks  the 
first  recorded  use  of  a  digital  computer  to  calculate  the 
directional  2D  spectra  of  water  waves.  The  work  of  Cote  et 
al.  [I960)  enhanced  this  basic  technique.  More  recent 
stereophotogramme trie  efforts  include  Holthuijsen  [1983a, b] 
and  Pos  et  al.  [1988],  Elements  of  this  later  work  include 
methods  to  render  the  water  opaque  so  that  a  more  exact 
calculation  of  the  height  field  can  be  made. 

During  the  1950s  and  early  1960s,  Longuet-Higgins 
[1952-1962;  Cartwright  &  Longuet-Higgins , 1956 ]  elaborated  on 
the  results  of  Cox  and  Munk  to  formulate  the  statistical 
theory  of  patterns,  paths,  number,  frequency,  and  distribu¬ 
tions  of  specular  reflection  points  on  randomly  moving 
surfaces.  Stilwell  [1969;  Stilwell  &  Pilon,1974]  correlated 
the  statistics  of  sea-surface  images  to  the  wave-slope 
statistics  of  the  actual  sea  surface.  Under  the  assumptions 
of  uniform  sky  radiance,  optimized  viewing  geometry,  and 
small  surface  slopes,  Stilwell  derived  the  relationship 
between  the  film  transmittance  of  an  imaged  surface  point 
and  the  range  component  of  the  wave  slope  at  that  surface 
point.  He  further  demonstrated  a  linearizable  relationship 
between  the  spatial  image  spectrum  and  the  imaged  surface 
slope  spectrum.  Kasevich  [1975]  extended  Stilwell's  model 
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to  second  order  to  develop  an  optimization  criterion  for  the 
relationship.  Chapman  and  Irani  [1981]  took  this  work  one 
step  further  by  applying  a  synthetic  model  and  executing  a 
limited  quantification  of  the  error  magnitudes  associated 
V7ith  the  parametric  dependence  of  this  linear  model.  This 
work  will  be  further  detailed  in  Chapter  1.4, 

Shares  [1980]  developed  a  novel  technique  for  remotely 
sensing  surface-flow  velocities  based  on  imagery  of  mono¬ 
chromatic  wavetrains  of  known  frequency  (such  as  those 
generated  by  a  motor  boat)  propagating  over  the  region  of 
interest.  His  work  demonstrated  that  the  wavelength  and 
direction  of  two  different  wavetrains  generated  all  the 
required  information  to  calculate  surface  flows.  Gotwols 
and  Irani  [1980]  developed  a  similar  technique  to  determine 
the  phase  velocity  of  short  gravity  waves. 

Exotic  sensors  using  LASER  [Palm  et  al.,1977;  Schau, 
1978;  Abshire  6e  McGarry ,  1987  ]  and  LIDAR  [Weinman,  1988  ]  have 
been  used  to  extract  directional  spectra  and  surface  back- 
scatter  data  at  higher  wavenumbers  (i.e.  the  capillary  wave 
regime).  Synthetic  Aperture  Radar  (SAR)  imagery  has  been 
used  to  estimate  spectra,  phase  velocities,  and  propagation 
directions  at  lower  wavenumbers  (i.e.  the  gravity  wave  re- 
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gime)  [Monaldo  &  Lyzenga , 1986 ;  Monaldo  u  Kasevich,1982; 
Carlson , 1984 ]  .  Also,  Long  Wave  Infrared  (LWIR)  sensors  have 
been  used  to  calculate  spatial  spectra  of  ocean- surf ace  tem¬ 
perature  [ Saunders ,1967,1968;  McLeish,1970]. 

Lybanon  [1985]  reported  on  the  implementation  of  an 
automated  image - analys is  system  by  the  U.S.  Naval  Ocean 
Research  &  Development  Activity  (NORDA) .  The  Interactive 
Digital  Satellite  Image  Processing  System,  or  IDSIPS,  can 
automatically  derive  the  sea-surface  slope  statistics  from 
sun-glitter  images  through  analysis  of  the  imaging  geometry. 
As  a  late  example  of  the  practical  application  of  water- 
surface  spectra  determination,  Fisher  [1986]  analyzed  four 
sun-glitter  images  taken  from  the  space  shuttle  Challenger 
(STS-41G)  to  locate  acoustically  important  oceanographic 
features  in  support  of  hydro - acous tical  sensor  placement. 

It  is  apparent  from  this  overview  that,  in  six  decades, 
the  methods  of  water-surface  imaging  have  moved  from  surface 
ships  to  airplanes  to  satellites  and  spacecraft.  Likewise, 
the  measurement  and  analysis  of  the  resulting  imagery  have 
undergone  a  corresponding  increase  in  computational  power 
and  sophistication. 
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1.4  Review  of  Pertinent  Literature 

A  comprehensive  review  would  include  the  work  of 
Stilwell  and  Pilon  [1974],  and  Kasevich  et  al.  [1971,1972]. 
The  emphasis  of  this  earlier  work  is  on  the  analysis  of 
coherent  optical  processing  techniques  as  applied  to  photo¬ 
graphic  emulsions  of  wave  scenes.  Kasevich  [1975]  provides 
a  general  introduction  to  the  first-order  theory  subsequent 
to  the  development  of  his  approximate  geometric-optics 
second-order  theory  to  estimate  the  optimum  viewing  geometry 
for  the  obtainment  of  reasonable  spectra.  Stilwell  [1969] 
provides  additional  development  of  image  analysis  with 
respect  to  the  law  of  Malus  subsequent  to  performing  an 
optical  analysis  to  derive  directional  energy  spectra.  Only 
the  first-order  theory  is  reviewed  here;  a  review  of  the 
second-order  theory  is  beyond  the  scope  of  this  study  since 
the  theory  of  Kasevich  assumes  simplified  approximations  for 
both  Fresnel  reflectivity  and  sky  radiance  distributions. 
However,  the  most  general  results  of  the  second-order  theory 
can  be  compared,  with  caution,  to  the  results  of  this  study. 
Any  second-order  theory  that  is  developed  for  this  geometric 
problem  loses  definiteness  because  the  spatial  distributions 
for  natural  radiance  are  independent;  no  general  solution 
can  be  specified  [ Stilwell , 1969 ] .  This  is  the  prime  motiva- 
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tion  for  the  simulation  and  analysis  of  geometric  effects 
through  empirical  models. 

Review  of  Kasevich  [1975] 

The  essential  requirement  for  the  determination  of 
slope  spectra  from  wave  images  is  to  have  the  spatial  mod¬ 
ulation  of  the  image  be  proportional  to  the  wave  profile. 
Kasevich  uses  the  example  of  a  transparency  with  film  expo¬ 
sure,  E,  dei.ined  over  its  linear  region  by 

2<y)  -  [fo(y)  ]*(l+f  (y)/fo(y)  1  [1.4:1] 

where 

E(y)  =  fo(y)  +  f(y).  [i.4:2] 

and 

gamma  -  the  film  gamma, 
such  that 

fo(y)  -  mean  exposure  on  film, 

and 

f(y)  -  the  exposure  modulation  due  to  scattering  of  radiance 
from  specular  wave-slope  facets. 

This  example  is  given  for  a  two-dimensional  case. 

If  fo(y)  »  f(y)i  then  Equation  [1.4:1]  can  be  expanded 
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in  a  binomial  series  to  yield  the  approximation 

E(y)  =  (fo(y)<-S^"""^/2)j*[i.(garo^a/2)*f(y)/fo(y)]  .  [1.4:3] 

The  estimation  of  the  slope  spectrum  from  the  forward 
Fourier  transform  of  the  image  requires  that  f(y)  be  linear 
with  respect  to  the  wave  slope  dz/dy,  where  z  is  the  surface 
elevation.  This  condition  can  only  be  approximately  satis¬ 
fied  because  of  the  nonlinearity  of  1)  the  spatial  radiance 
distributions  found  in  nature,  2)  the  Fresnel  reflectivity 
variation  with  respect  to  incidence  angle,  and  3)  tne  re¬ 
fraction  of  upwelling  subsurface  radiance  in  the  direction 
of  the  observer. 

Review  of  Stilwell  [1969] 

For  a  small  wave-slope  angle  beta,  the  small-angle 
approximation  is: 

beta  -  ATAN(dz/dy)  =  dz/dy,  [1.4:4] 

where  beta  is  the  fundamental  parameter  for  extracting  wave- 
slope  spectra  from  imagery.  The  law  of  Malus  defines  the 
radiance  observed  at  azimuth  angle  theta  as  a  simple  func¬ 
tion  of  Fresnel  reflectivity  and  incident  radiance: 
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Lq  ( the  ta  ,  be  ta  ,  omega)  -  L(mu) '5^R(  omega)  ,  [1.4:5] 

where 

Lq( theta, beta, omega)  -  the  observed  reflected  radiance, 

L(mu)  “  the  incident  radiance  to  be  reflected, 

R(omega)  -  the  Fresnel  .reflectivity  (for  any  arbitrary 
polarization) , 

theta  =*  the  zenith  angle  of  observation, 
beta  «  the  slope  of  the  reflecting  surface, 
mu  “  the  zenith  angle  of  the  incident  radiance, 
and 

omega  «  the  angle  of  incidence, 
such  that 

omega  «  theta  -  beta  [1.4:6] 

and 

mu  =  omega  -  beta.  [1.4:7] 

Figure  1.4:1  illustrates  the  angular  relations  in  two  dimen¬ 
sions  , 

The  variation  of  observed  radiance  with  respect  to  a  change 
of  surface  slope  dbeta  at  some  point  is 
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FIGURE  1.4:1.  Angular  relations  for  the  2D  case. 


d'L(  theta")  -  dL(mu')*R(  omega'>*dmu 
dbeta  dmu  dbeta 

+  L(mu)*dR(’omega'>*domega .  [1.4:8] 

domega  dbeta 

If  beta  is  a  small  angle  and 

omega  -  mu,  [1.4:9] 

then 

dL( theta)  -  [L' (mu)*R(omega) 
dbeta 

+  L(mu)*R' (omega)  ] *dorae.ga.]  ,  [1.4:10] 

dbeta 


X'/here  the  prime  (')  denotes  the  first  derivative  with  re¬ 
spect  to  the  argument.  With  the  assumption  that  the  x^ater 
surface  remains  analytic,  the  small-angle  linear  approxiraa- 
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tion  holds  in  the  Fourier  transform  for  wave-slope  angles 
(beta)  up  to  at  least  30  degrees  [ S tilwell , 1969 ] . 

Review  of  Chapman  and  Irani  [1981] 

The  intent  of  the  work  of  Chapman  and  Irani  was  to 
quantify  the  parametric  dependencies  of  errors  inherent  in 
linearly  relating  a  wave-slope  magnitude  spectrum  to  the 
corresponding  radiance  image  magnitude  spectrum.  Their  ap¬ 
proach  was  to  simulate  radiance  images  of  sea- like  surfaces 
in  two  dimensions.  Their  simulation  utilized  models  of  the 
sea  surface,  the  sky  radiance  distribution,  and  the  non¬ 
linear  transfer  function  that  transforms  surface  slope  to 
radiance.  They  determined  that  the  two-dimensional  simula¬ 
tion  was  computationally  expensive  so  only  a  small  number  of 
geometries  were  investigated.  However,  they  initially  used 
a  simpler  one  -  dimens  ional  model  of  a  +.15-degree  sinusoidal 
surface  propagating  in  a  single  direction  along  the  sensor 
field  in  order  to  survey  various  imaging  geometries  for  po¬ 
tential  synthesis  and  analysis  in  two  dimensions. 

Figure  1.4:2  illustrates  the  two-dimensional  methodology  for 
image  synthesis  and  error  analysis  used  by  Chapman  and 
Irani.  This  methodology  is  described  in  detail  in  Chapters 
2 . 1  through  2.8. 
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FIGURE  1.4:2.  Methodology  of  error  estimation  in  two  dimen¬ 
sions.  (from  Chapman  6e  Irani, 1981) 
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chapman  and  Irani  used  two  figures  of  merit  derived 
from  signal  analysis  to  describe  the  nonlinearity  of  the 
slope  -  to  -  radiance  transformation.  The  first  figure  of  merit 
is  the  ratio  of  the  fundamental  component  to  the  DC  compo¬ 
nent  which  they  termed  the  contrast  of  the  wave  image.  The 
second  figure  of  merit  is  the  square  root  of  the  power  in 
the  upper  harmonics  divided  by  the  power  in  the  fundamental, 
which  they  termed  the  Total  Harmonic  Distortion  (THD)  of  the 
wave  image.  An  optimal  imaging  geometry  for  measuring  slope 
statistics  would  maximize  contrast  and  minimize  THD,  based 
upon  their  terminology.  These  figures  of  merit  were  com¬ 
puted  for  the  results  of  their  one-dimensional  model.  To 
quote  Chapman  and  Irani: 

"...these  figures  of  merit  do  not  represent 
realistic  contrasts  or  distortion  statistics  for 
sea  surface  imaging  because  the  distribution  of 
slopes  over  a  sinusoid  differs  substantially  from 
the  approximately  Gaussian  distribution  of  sea 
surface  slopes."  [Chapman  &  Irani, 1981) 

Their  initial  results  indicated  that  the  figures  of  merit 

showed  a  substantial,  asymmetric  dependence  on  slope  azimuth 

for  certain  geometries  and  may  misrepresent  the  utility  of  a 

particular  geometry. 

Chapman  and  Irani  then  applied  their  two-dimensional 
synthesis  and  analysis  to  six  selected  geometries  with  the 


31 


intent  of  evaluating  the  azimuthal  dependence  of  their 


figures  of  merit.  Their  two-dimensional  results  indicated 
that  1)  nonlinearity  is  largely  independent  of  wavenumber, 
2)  nonlinearity  remains  relatively  low  (error  <  3  dB)  over  a 
relatively  wide  range  of  azimuth  (100-120  degrees)  around 
the  sensor  azimuth,  and  3)  nonlinearities  increase  within 
30-40  degrees  of  the  cross-field  direction. 


Experimental  Design  of  the  Current  Study 
As  earlier  stated,  the  current  study  is  essentially  an 
amplification  and  extension  of  Chapman  and  Irani  as  develop¬ 
ed  from  a  proposed  statement  of  work: 

"An  exhaustive  evaluation  of  our  radiance 
modulation  model  would  involve:  1)  simulating  the 
geometry  of  a  surface  area;  2)  transforming  that 
surface  geometry  into  an  image  using  a  particular 
set  of  optical  conditions;  3)  estimating  the  slope 
spectrum  of  the  simulated  surface  and  the  spectrum 
of  the  image;  4)  repeating  steps  1-3  for  all  other 
possible  imaging  geometries;  and  5)  comparing  each 
image  spectrum  with  the  corresponding  slope  spec¬ 
trum  to  obtain  estimates  of  the  error  arising  from 
nonlinearity.  This,  in  fact,  is  impractical  be¬ 
cause  there  are  a  large  number  of  parameters  to  be 
varied,  and,  for  any  set  of  these  parameters,  the 
error  computation  involves  a  large  number  of  oper¬ 
ations.”  (Chapman  &  Irani, 1981) 


The  intent  of  this  study  is  to  develop  and  execute  a 
test  design  which  provides  a  minimal  yet  optimal  set  of  pa¬ 
rameters  to  both  verify  the  limited  results  of  Chapman  and 
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Irani  and  to  complete  a  more  detailed  parametric  surface 
exploration . 

For  their  two-dimensional  analysis,  the  experimental 
design  of  Chapman  and  Irani  was  of  the  order  1x3x2  factors 
relative  to  the  current  study,  which  is  of  the  order  3x4x6 
factors : 

Wind  Friction  Velocity  -  12.0,  36.0,  and  60.0  cm/sec  versus 
12.0  cm/sec.  These  three  velocities  define  the  envelope  of 
the  linear  wind-wave  model. 

Wind  Azimuth  -  +90:-90,  +45:-135,  0:130,  and  -45:135  degrees 
(with  ambiguity)  versus  +90: -90,  +30: -120,  and  0:180  degrees 
(with  ambiguity) . 

Sun  Position  -  (0,0),  (0,53.2),  (45,53.2),  (90,53.2), 
(135,53.2),  and  (180,53.2),  where  the  coordinates  are  (azi¬ 
muth  angle,  zenith  angle)  in  degrees,  versus  (90,45)  and 
(135,45) . 


The  experimental  design  of  the  current  study  spans  the 
complete  range  of  azimuthal  geometries  in  increments  of  45 
degrees . 
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The  zenith  angle  of  observation  for  the  current  study 
model  is  set  at  the  mean  Brewster  angle  (53.2  degrees  at  460 
nm)  (versus  60 , 0  degrees  at  800  nm  in  the  Chapman  and  Irani 
model)  so  that  the  effect  of  vertically  polarized  radiance 
due  to  wave-slope  deviations  from  the  mean  surface  can  be 
compared  with  the  observed  horizontally  polarized  radiance. 
Only  the  horizontally  polarized  radiance  was  computed  in  the 
Chapman  and  Irani  s  tudy , 

In  addition,  the  effect  of  upwelling  subsurface  radi¬ 
ance  is  incorporated  into  the  current  study  model  in  order 
to  estimate  the  effect  that . refracted  radiance  may  have  on 
the  nonlinearity  of  the  reconstructed  slope  spectrum. 

Also,  the  effect  of  sub  -  resolution  wave  slopes  is 
incorporated  into  the  current  study  model  in  order  to  ac¬ 
count  for  the  spatially  filtered  wave-slope  spectrum  that 
exists  beyond  the  maximum  sampling  frequency  of  the  model. 

Figure  1.4:3  illustrates  the  differences  between  the  two 
studies,  based  on  the  combinations  of  synthetic  imaging  ge¬ 
ometries  that  are  analyzed  in  two  dimensions . 
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FIGURES  1.4:3(a)  &  (b) .  2D  imaging  geometries  used  in  the 
current  study  (a)  versus  the  Chapman  and  Irani  study  (b) . 

In  summation,  the  experimental  design  for  the  current 
study  requires  the  analysis  of  72  distinct  synthetic  imaging 
combinations  versus  6  combinations  in  the  previous  study. 
The  analysis  of  these  synthetic  results  will  provide  more 
complete  information  on  the  geometric  effects  of  slope 
spectrum  reconstruction  than  the  simplified  one -Uimens ional 
analysis  in  the  previous  work  of  Chapman  and  Irani  [1981], 


2.0  METHODS 


Overview 

The  current  study  model  uses  a  two-dimensional  Pierson- 
Stacy  elevation  power  spectrum  to  create  a  synthetic  wind- 
wave-slope  surface  that  conforms  to  the  results  of  a  number 
of  statistical  studies  [Cox  &  Munk , 19 54a , b ;  Longue t - Higgins , 
1957;  Pierson  &  Stacy, 1973],  Downwelling  skydome  (solar  and 
skylight)  radiance  for  clear  skies  and  upwelling  subsurface 
radiance  for  clear,  deep  water  are  both  synthetically  cre¬ 
ated  from  analytic  models.  These  synthetic  radiance  distri¬ 
butions  are  decomposed  into  their  polarized  components. 

The  synthetic  radiance  image  is  generated  by  first 
calculating  the  surf ace  -  slope  distribution  of  the  synthe¬ 
sized  water  surface  and  then  applying  the  law  of  Malus  to 
linearly  map  the  radiance  distributions,  the  polarized  Fres¬ 
nel  reflection  coefficients,  and  the  surface  projection 
coefficients  to  the  surf ace  -  slope  distributions  to  compute 
the  reflected  and  refracted  polarized  radiance  from  each 
sample  area  in  the  direction  of  observation. 

Figure  2.0:1  illustrates  the  methodology  for  image  synthesis 
and  error  analysis  used  in  the  current  study . 
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BPECin  SLOPE  MAGNITUDE  SPECTRUM 
(EquitlonR  2. 2:1*2. 2:24) 


SYNTHESIZE  SKYDOHE  DOWNVELLIHG 
RADIANCE  (H  &  V  POLARIZATION) 
(EquAtlont  2.3:1*2.3:13} 
(Equations  2.5:17-2.5:29) 


SYNTHESIZE  GUBDOME  UPVELLING 
RADIANCE  (K  &  V  POURIZATION) 
(Equations  2.A:1-2.A:7) 


U  U  U 

RESOLVE  INTO  COMPONENT  SPECTRA  MULTIPLY  BY  SURFACE  PROJECTION  .MULTIPLY  BY  SURFACE  PROJECTION 
(Equations  2.2:25*2.2:26)  &  FRESNEL  REFLECTION  COEFFICIENTS  |  COEFFICIENTS 

(Equations  2.5: 1-2. 5:9)  (Equation  2.6:1) 

(Equations  2.5:17-2.5:29) 


FILTER  COMPONENT  SPECTRA  THROUGH 
WHITE  NOISE  &  INVERSE  FFT 
(Equations  2.2:27-2.2:29) 

RESOLVE  INTO  SLOPE  MAGNITUDE  & 
SLOPE  AZIMUTH  ARRAYS 
(Equations  2.2:30-2.2:40) 


g 

Smrr.  HAGNITUDF.  ARRAY  (BETA) 
SIjOPE  AZIMUTH  ARRAY  (ALPHA) 

U 

TRANSFORM  SLOPE-TO-RADIANCE 


U 

CO.RRELATE  BY  SUB-RESOLUTION 
WAVE  SLOPE  ATTENUATION  FILTER 
(Equations  2.5:10-2.5:16) 
(Equations  2.5:17-2.5:29) 


g 

I.v'(RF.TA,AI.rilA)  (H  6  V) 


! 


0 

SYNTHETIC  RADIANCE  IMAGE 


Lr' 

I.r* 


(BETA. ALPHA)  (HORZ) 
(BETA. ALPHA)  (VERT) 


TRANSFORM  SLOPE-TO-RADIANCE 


FIGURE  2.0:1.  Schematic  methodology  of  the  current  study. 
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Chapman  and  Irani  [1981],  in  their  error  computations 
of  the  linear  estimation  of  surf ace - s lope  spectra  from  image 
spectra,  assumed  that  the  nonlinearity  of  the  slope-to- 
radiance  transfer  function  was  the  principal  source  of 
error.  They  did  note  other  possible  sources  of  error  but 
chose  not  to  incorporate  them  in  their  study.  The  current 
study  attempts  to  include  those  sources  of  variation  which 
are  directly  or  indirectly  attributable  to  the  geometric 
effect  of  water  surfaces  on  the  modulation  of  observed 
radiance : 


1)  Perspective  Distortion 

2)  Variation  of  the  Sensor  Response  Function 

3)  Spatial  and  Spectral  Filtering 

No  sensor  model  is  implied  in  this  synthesis  other  than  the 
existence  of  a  spatial  Nyquist  frequency  and  a  geometric 
location  for  a  viewpoint.  Chapman  and  Irani  stated  ”we 
assume  digital  processing  techniques  are  used  so  that  per¬ 
spective  distortion  and  trends  in  the  response  function  over 
the  field  of  measurement  can  be  removed  prior  to  obtaining 
the  image  spectra"  and  "we  assume  that  the  optical  modula¬ 
tion  transfer  function  of  the  camera  adequately  filters  the 


«...  M  A  < 
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radrance  spectrum  and  ther^ 


errors."  This  synthesis  does,  however,  incorporate  a  corre* 
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lation  model  to  account  for  the  spatially  filtered,  high- 
frequency  wave-slope  spectrum  that  exists  beyond  the  maximum 
spatial  sampling  frequency. 

4)  Upwelling  Radiant  Energy 

5)  Scattered  Radiant  Energy 

No  atmospheric  model  is  implied  in  this  synthesis.  However, 
a  model  for  subsurface  absorption  and  scattering  is  incor¬ 
porated,  providing  radiance  variation  due  to  refraction  of 
upwelling  surface  radiance  by  surface  waves.  The  model  of 
Chapman  and  Irani  assumed  that  the  surface  is  viewed  15-60 
degrees  from  nadir  so  that  surface  reflection  predominates. 
Also,  they  assumed  that  their  camera  was  viewing  through 
clear  air  and  sensing  in  the  near  -  inf  rared  region  so  -  that 
the  effects  of  path  radiance  and  refracted  subsurface  radi¬ 
ance  could  be  ignored. 

6)  Wave  Shadows 

The  work  of  both  Saunders  [1967  ]  and  Goodell  [1971]  was 
reviewed  in  regard  to  potential  models  which  compensate  for 
wave  shadowing  or  "hiding**.  The  current  linear  model,  as 
developed,  adequately  incorporates  the  effect  described  by 
Goodell  for  the  established  zenith  angle  of  observation,  the 
mean  Brewster  angle .  To  quote  Goodell : 
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"Facets  with  small  tilts,  although  more 
probable,  reflect  only  small  portions  of  the  sky. 
Facets  with  greater  tilts,  although  less  probable, 
reflect  much  larger  sky  portions  from  higher  up. 
Eventually  the  [G]aussian  slope  distribution  al¬ 
lows  only  vanishingly  small  contributions  from 
wave  slopes  so  that  the  average  contribution  seems 
to  come  from  sky  elevations  of  [approximately  30 
degrees,  for  an  oblique  observation  looking  below 
the  horizon].  Thus,  masking  need  notbe  postula¬ 
ted  in  order  to  explain  the  apparent  15-degree  sea 
•*  slope  effect."  [Goodell ,  1971] 


Figure  2.0:2  illustrates  the  effect  modeled  by  Goodell. 


DEGREES 


FIGURE  2.0:2.  Sky  portions  reflected  to  an  observer  on  the 
ocean  surface,  looking  at  the  horizon,  (from  Goodell , 1971) 
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Although  the  effect  is  apparently  reversed  for  near-zenith- 
viewing  imagery,  the  modeling  approach  is  the  same  for  any 
angle  of  observation.  In  Figure  2.0:2,  the  slope  distribu¬ 
tion  is  mapped  to  sky  coordinates;  in  the  current  study 
model,  skydome  radiance  is  mapped  to  slope  coordinates. 

It  is  intuitive  that  the  effects  of  wave  shadowing  diminish- 
as  the  observation  point  approaches  zenith.  Because  the 
majority  of  wave  slopes  are  less  than  30  degrees,  the  effect 
of  wave  shadowing  on  Brewster-angle-viewing  imagery  (53.2 
degrees  from  zenith)  is  assumed  to  be  insignificant. 

7)  Multiple  Reflections 

Only  an  elaborate  Monte  Carlo  simulation  or  mul t iple - ray - 
tracing  model  could  account  for  multiple  reflections,  simu¬ 
lations  which  are  beyond  the  scope  of  this  linear-model 
study.  The  assumption  for  this  synthesis  is  that  the  proba¬ 
bility  of  multiple  reflections  in  near-nadir  imagery  is 
negligible , 
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Definition  of  Model  Terms 


The  following  list  is  a  brief  glossary  of  the  terms 
used  in  the  synthetic  image  model.  These  terms  are  formally 
defined  in  Chapters  2.1  through  2.8. 

alpha  «  azimuth  angle  to  (wind-wave)  surface  normal 
beta  =  zenith  angle  to  (wind-wave)  surface  normal 
Dq  “  scalar  squared  difference  (error) ,  integrated  over  both 
wavenumber  (k)  and  azimuth  (phi) 

D]^(k)  =*  ID  difference  (error)  spectrum  with  respect  to 
wavenumber  (k) ,  integrated  over  azimuth  (phi) 

D]^(phi)  -  ID  difference  (error)  spectrum  with  respect  to 
azimuth  (phi) ,  integrated  over  wavenumber  (k) 
D2(kj^,ky)  -  2D  difference  (error)  spectrum 
H  «  horizontally  polarized  fraction  of  radiance 
H0(x,y)  «  horizontally  polarized,  reflected  &  refracted 
synthetic  radiance  image 

Hl(x,y)  «  horizontally  polarized,  reflected  synthetic 
radiance  image 

H3(x,y)  «  Hl(x,y)  without  the  incorporation  of  sub-resclu- 

tion  wave-slope  model 
I  «  3D  incident  radiance  vector 
k  dummy  variable  for  scalar  wavenumber 

^x,v  "  scalar  wavenumber  relative  to  spatial  coordinate  axes 
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K  «  2D  vector  wavenumber  «  ,  ky ) 

Lg  “  reflected  radiance  due  to  sun  glitter 
Lp  »  atmospheric  path  radiance 

Lj-  -  total  reflected  sky  (-f'  suxi)  radiance  «  Lg  +  Lg 

Lref  “  reference  Lsky  radiance  at  zenith 

Lg  ”  reflected  radiance  due  to  skylight 

Lgky  “  downwelling  radiance  from  sky  (including  sun) 

L^  “  upwelling  radiance  above  water  surface  «  Lj.  +  L^ 

L^  «  upwelling  subsurface  refracted  radiance  above  surface 
L0(x,y)  *  total  (unpolarized)  reflected  &  refracted  syn¬ 

thetic  radiance  image 

Ll(x,y)  -  total  (unpolarized)  reflected  synthetic  radiance 
image 

^x,y(^»y)  “  (wind-wave)  slope  component  arrays 
mu  *  zenith  angle  to  reflecting  sky  element 
muQ  “  angle  from  sun  to  sky  element 

Mx  ^  y (kx , ky )  -  (wind- wave )  slope  -  component  magnitude  spectra 
nu  «  azimuth  angle  to  reflecting  sky  element 
nuQ  “  angle  between  vector  parallel  to  direction  of  polar¬ 
ization  and  projection  of  vector  to  surface  plane 
N(kj^ ,  ky )  =*  synthetic  image  radiance  magnitude  spectrum 
N  “  3D  surface  normal  vector 
omega  “  angle  of  incidence 
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phi  “  azimuth  angle  to  point  of  observation  (180  deg) 

“  dummy  variable  for  azimuth  angle 
phiQ  «  azimuth  angle  to  sun 
psi  “  multiplicative  depolarization  factor 

“  (wind-wave)  elevation  power  spectrum 
Pr  (be ta ,  alpha)  =»  (wind-wave)  slope  probability  distribution 
R(omega)  «  Fresnel  reflectivity  (arbitrary  polarization) 

Rq  “  unpolarized  Fresnel  reflectivity  at  normal  incidence 
R  -  3D  reflected  radiance  vector 
S2D(^x>^y^  -  (wind-wave)  slope  power  spectrum 
$2^  y(k^,ky)  «  (wind-wave)  slope  -  component  power  spectra 
theta  -  zenith  angle  to  point  of  observation  (53.2  deg) 
thetaQ  «  zenith  angle  to  sun 
-  atmospheric  transmittance 
*  transmittance  through  water 
Vfric  “  friction  velocity  of  wind  at  water  surface 
V1950  =  velocity  of  wind  at  height  z-1950  cm  above  surface 
V  -  vertically  polarized  fraction  of  radiance 
WGN(k^,ky)  «  white-noise  spectrum 

wind_az  “  azimuth  angle  to  dominant  wind  direction  (with 
180- degree  ambiguity) 
x,y  «  spatial  coordinates 
z  -  height  above  mean  water  surface 
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2.1  Radiometric  Model  for  Image  Synthesis 

The  total  radiance  reaching  an  overhead  radiometric 
sensor  be  can  defined  by, 

Ltot  “  (Lu  *  +  Lp.  (2.1:1) 

where 

Lu  “  the  spectral  upwelling  radiance  just  above  the  water 
surface  in  direction  of  the  sensor, 

«  the  transmittance  of  the  intervening  atmosphere  between 
the  water  surface  and  the  sensor, 
and 

Lp  -  the  spectral  path  radiance  due  to  light  scattered  in 
the  direction  of  the  sensor  by  the  intervening  atmosphere. 

In  general,  Lp  is  much  larger  than  L^  across  the  visible  and 
infrared  spectrum.  The  estimation  of  of  Lp  must  be  accurate 
within  1%  in  order  to  estimate  L^  within  10%.  This  is  known 
as  the  'atmospheric  correction  problem'  and  is  a  well-de¬ 
fined  subject  of  research.  However,  this  synthesis  does  not 
include  an  atmospheric  model  since  it  is  the  variation  of  L^ 
with  respect  to  several  independent  geometries  that  is  the 
object  of  study.  Therefore,  this  synthetic  model  will 
assume  a  perfectly  non- absorbing ,  non- scatter ing  atmosphere 
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This  simplification 


and  will  set  «  1.0  and  Lp  =  0.0. 

reduces  the  radiometric  equation  to: 

Ltot  “  *  1.0)  +  0.0  «  [2.1,^!] 

for  the  duration  of  this  study.  More  sophisticated  models 
may  vary  and  Lp  and  may  include  a  sensor  model  for  spec¬ 
tral/spatial/temporal  attenuation  and  distortion  as  well. 
An  alternative  perspective  on  this  study  is  to  consider  that 
the  model  creates  a  synthetic  radiant  object  rather  than  an 
image  since  no  part  of  an  imaging  chain  (including  the  in¬ 
tervening  atmosphere)  is  modeled;  we  are  interested  only  in 
the  spatial  effects  of  the  water  surface  on  the  reflected/ 
refracted  radiance  in  the  direction  of  a  hypothetical  dis¬ 
tant  sensor. 

The  above  surface  radiance  can  be  decomposed  into 

three  terms , 

Lu  -  Lg  +  L3  +  L^,  [2.1:3] 

where 

Lg  «  the  above  -  surf ace  radiance  due  to  reflected  sunlight 
(commonly  known  as  sun  glitter) , 

Lg  =»  the  above  -  surf  ace  radiance  due  to  reflected  skylight, 
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and 


=  the  above  -  surf ace  radiance  due  to  subsurface  upwelling 
radiance  propagating  across  the  water  surface. 

Most  oceanographic  imaging  has  been  directed  at  esti¬ 
mating  ,  as  this  term  conveys  information  about  water 
color  and  the  factors  which  affect  water  color  (non-aqueous 
constituents  and  water  temperature,  to  name  a  few).  For 
this  reason,  the  large  radiance  due  to  glitter  Lg  has  been 
generally  avoided  by  the  judicious  selection  of  a  minimizing 
geometry.  However,  reflected  skylight  Lg  cannot  be  geo¬ 
metrically  avoided;  instead,  Lg  has  usually  been  considered 
to  be  constant  by  assuming  that  a  uniformly  radiant  skydome 
reflecting  off  a  uniformly  rough  water  surface  yields  an  ap¬ 
proximately  Lambertian  condition.  This  is  one  of  the  few 
instances  where  poor  spatial  resolution  can  be  used  to  ad- 


vantage 

The 

reflected  skylight  ter^^ 

is  then  usually  col- 

lec ted 

with 

the 

path  radiance  term: 

^tot  “ 

+ 

(Ls*T^  +  Lg*-Ta  +  Lp) 

= 

Lw*Ta 

+ 

(Ls*Ta  +  0.0  +  Lp) 

Lw*Ta 

+ 

(Lp') 

[2.1:4] 

Thus ,  estimation  of  L^  has  typically  been  reduced  to  cal  - 
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culat ing  and  Lp '  and  applying  a  linear  atmospheric  cor¬ 
rection . 

This  synthetic  model  does  not  assume  that  is  the 
pre-eminent  datum  to  collect:  for  information  about  the 
surface  geometry,  it  is  important  to  establish  a  relation 
between  L^  and  surface  slope .  In  this  context ,  the  re¬ 
flected  radiance  terms,  Lg  and  Lg ,  are  re-collected  under 
the  common  term , 

Lr  “  Lg  +  Lg  [2.1:5] 
where 

Lj.  -  the  above  -  surf  ace  spectral  radiance  due  to  the  re¬ 
flected  skydome,  since,  as  the  surface  varies  its  slope,  the 
surface  normal  vector  points  to  the  skydome  independent  of 
the  position  of  the  sun  on  the  skydome. 

In  this  study,  an  optimal  imaging  geometry  provides  for 
the  accurate  estimation  of  the  slope  magnitude  spectrum  over 
the  broadest  range  of  possible  water- surf ace  slope  spectra. 
The  general  approach  to  this  estimation  is  to  maximize  the 
spatial  contrast  of  L^*  and  either  minimize  or  correct  for 
the  spatial  variation  of  L^. 
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2 . 2  Fourier  Synthesis  of  Wind-Wave  Surfaces 


The  geometric  model  for  Fourier  synthesis  of  wave-slope 
surfaces  closely  follows  the  model  of  Chapman  and  Irani 
[1981]  with  one  exception:  the  often  substantial  slope 
variance  that  exists  above  the  spatial  Nyquist  frequency  is 
calculated  and  the  radiometric  effect  of  this  sub  -  resolution 
slope  variance  is  introduced  within  the  illumination  models. 

Specification  of  a  ID  Elevation  Power  Spectrum 
The  first  step  is  to  specify  a  ID  wave  elevation  power 
spectrum.  Several  spectra  were  previously  cited:  Pierson- 

Neumann  [Borrego  &  Machado , 1985 ;  Pierson-Moskowi tz  [Mastin 
et  al.,1987],  and  modified  Pierson- S tacy  [Chapman  &  Irani, 
1981],  For  this  study,  the  original  ID  Pierson-Stacy  power 
spectrum  is  employed  for  two  reasons:  1)  the  spectral  scale 
is  spatial  wavenumber  [radians  per  centimeter  or  just  /cm] 
and  2)  Pierson  and  Stacy  [1973  ]  went  into  great  detail  in 
their  report  to  attempt  to  correlate  their  spectrum  with  the 
empirical  results  of  other  researchers,  including  the  Cox 
and  Munk  [ 1954a , b ]  photographic  study . 

The  equatrons  of  the  ID  wave  elevation  power  spectrum 
P(k)  come  directly  from  Pierson  and  Stacy  [1973],  P(k)  is 
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defined  over  five  spectral  regions: 


«  the  gravity  wave-gravity  equilibrium  spectral  range, 

P3(k)  »  (a/2*k3)*EXP(-b*g2/(vi950^*k2)) 

for  0  <  k  <  kj^ ,  [2.2:1] 

?2  “  the  Kitaigorodskii  spectral  range, 

P2(k)  -  a/(2*SQRT(ki)*k2-5) 

for  ki  <  k  <  k2,  [2.2:2] 

P3  “  the  Leykin-Rosenberg  spectral  range, 

P3(k)  -  (a*d)/(2*(k3P)*(k3'P) ) 

for  k2  <  k  <  k3 ,  [2.2:3] 

P4  “  the  capillary  spectral  range, 

P4(k)  -=  (a*d)/(2*k3) 

for  k3  <  k  <  k^u,  [2.2:4] 

and 

P5  the  Cox  viscous  cut-off  range, 

P5(k)  -  (E/(nu*g))*Vfric^*lc„axVk9 

for  kjju  <  k  <  infinity,  [2.2:5] 

where 
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d  =  (1.274  +  (0.0268*Vfj.ic)  +  ( 6 . 03E- 5*Vf  ^  ic^ ) )  ^  •  [2.2:6] 

ki  -  (k2*v^in2)/^^^.^2^  (2.2:7) 

knu  -  (0.5756*SQRT(vfi.ic)*k„ax)/(<i^/^)  .  [2.2:8] 

and 

p  -  LOG(d/(Vfric/Vn,in))/LOG(k3/k2)  ,  [2.2:9] 

such  that 

a  «  0.0081  “  the  Phillips  constant  [unitless], 
b  "  0.74  [unitless], 

E/(nu*g)  »  l,473E-4  [unitless], 

g  =  980.0  =  the  acceleration  of  gravity  [cm/sec^], 
k2  “  0.359  [rad/cm], 
k3  “  0.942  [rad/cm], 

^max  “3.63  [rad/cm] 

Vjj^in  “  12.0  [cm/sec]  -  the  minimum  friction  velocity  defined 
by  the  Pierson- Stacy  model, 

V1950  =*  the  wind  velocity  at  1950  cm  above  water  level 
[ cm/sec ] ,  and 

Vfric  “  the  wind  friction  velocity  at  the  water  surface 
( i . e .  z  «  0  cm) . 

Vfric  the  wind  velocity  v  [cm/sec]  at  height  z  [cm]  have 

an  empirical  correspondence  under  the  assumption  of  a  neut¬ 
rally  stratified  atmosphere: 
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v(z)  =  (vfj.ic/0-^)*LN(z/zo)  [2.2:10] 

and 

ZQ  »  (0.684/vfric)  +  (4 . 28E- 5*Vf  j-ic^)  '  0.0443  [2.2:11] 

Values  for  Vfj-ic*  ’^1950>  well  as  V250.  '^1000>  '^1250 

are  interpolated  from  values  tabulated  by  Pierson  and  Stacy. 
(Refer  to  V_DATA.DAT  input  data  file  in  Appendix  III.) 

Figure  2.2:1  graphs  k*P(k)  versus  LOGlO(k)  for  friction 
velocities  of  12.0,  36.0,  and  60.0  cm/sec,  to  illustrate  of 

the  effect  of  wind  velocity  on  the  character  of  the  eleva¬ 
tion  power  spectrum.  Note  that  most  of  the  power  is  located 
in  the  gravity  wavenumber  region,  i.e.  below  k  -  0.002/cm. 
The  curve  for  12.0  cm/sec  has  a  maximum  value  of  30.0  cm^ . 

Specification  of  a  2D  Directional  Spreading  Function 
The  2D  power  spectrum  is  created  via  a  directional 
spreading  factor  D(k,phi)  that  attenuates  the  ID  spectrum  at 
the  azimuth  angle  phi  from  the  upwind/downwind  directions: 

P2D(k,phi)  -  P(k)^D(k,phi)  '  [2.2:12] 

The  equations  of  the  ID  wave  elevation  power  spectrum  P(k) 


52 


k*P(k)  versus  LOGIC (k) 


FIGURE  2.2:1.  The  Pierson-Stacy  ID  elevation  power  spectrum 
k*P(k)  versus  LOGlO(k). 


come  directly  from  Pierson  and  Stacy  [1973]  with  a  small 
modification  to  allow  rotation  of  the  2D  spectra  relative  to 
the  wind  azimuth  wind  az . 


TV.. 


/l-t  •>*  ^  ^  4 

X*  A.  A.  V.  ^  fcict  4.  O  p  A.  C  CLVk  X  11I& 


XA  U.OJ.JLltC( 


D(k, phi,wind_az)  -  (A*(l-B))  +  (B*C) 


[2.2:13] 
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where 


[2.2:14] 

[2.2:15] 


A  =.  (8/(3*pi))*(D2)  , 

B  -  EXP(-g2/(2*k2*vi95o^)) , 
and 

C  -  (A*D+0.5)/pi  [2.2:16] 

such  that 

D  -  COS (wind_az -phi) .  [2.2:17] 


Creation  of  the  Slope-Component  Spectra 
The  third  step  is  to  derive  the  two  slope  -  component 
spectra  from  the  scalar  power  spectrum.  The  2D  spectrum 
must  first  be  normalized  by  k  over  the  range  of  wavenumber: 


P2D'(k.phi)  ”  P(k)*D(k,phi)/k 


since 


P(k) 


j P2d' (k,phi)*k*dphi 


-  J P2D (k , phi) *dphi . 


[2.2:18] 


[2.2:19] 


The  two  slope-component  spectra  are  obtained  by  multiplying 

the  scalar  2D  elevation  spectrum  by  the  squares  of  the 

0 

orthogonal  components  of  the  wave  vector  K  that  are  aligned 
with  the  image  coordinate  system  (x,y): 


The  slope  power  spectrum  is 
S<k,phi)  -  k2*P2£) '  (k,phi)  , 
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[2.2:20] 


which  leads  to 


Sx(kx.ky)  “  kx2*P2D' (k.phi)  -  kx2*P2D ' (k^ . ky )  [2.2:21] 

and 

SyCk^.ky)  -  ky2*P2jj<  (k.phi)  =  ky2*P2p' (k^.ky)  ,  [2.2:22] 

since 

|K|  -  SQRTCkx^  +  ky2)  -  k  [2.2:23] 

and 

P2D'(K)*dK  -  P2D(kx,ky)*k*dk 

-  P2D(k*C0S(phi) ,k*SIN(phi) )*k*dK 
=  P2D (k , phi ) *k*dkdphi 

-  P2d' (k,phi)*dkdphi.  [2.2:24] 

The  square  roots  of  the  slope-component  power  spectra  yield 
the  corresponding  slope-component  magnitude  spectra,  which 
are  used  as  filters  when  generating  the  synthetic  slope 
arrays : 


Mx(kx,ky)  -  SQRT(Sjj(kx,ky))  [2.2:25] 

and 

MyCkx.ky)  -  SQRT(Sy(kx,ky)) .  [2.2:26] 

Creation  of  a  Frequency-Domain  White  Noise  Image 
The  fourth  step  is  to  create  a  scalar  matrix  of  spatial 
white  noise,  i.e,  uniformly  distributed,  uncorrelated  random 
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values  with  unit  magnitudes  ranging  between  +pi  and  -pi. 
The  Fourier  transform  of  this  matrix  yields  a  complex  phase 
matrix  with  conjugate  symmetry  about  its  central  ordinate: 


f 


+1 

[wgn(x,y) ] 


-  WGN(kx,ky) 


[2.2:27] 


Frequency-Domain  Filtering  and  Back  Transformation 
WGN  is  filtered  by  and  My  in  the  frequency  domain  to 
create  the  two  complex  Fourier  transforms  of  the  synthesized 
wave-slope  components.  The  inverse  Fourier  transform  yields 
the  two  slope  -  component  arrays: 


rax<^»y)  " 

and 

niyCx.y)  - 


X  ' 


X » 


ky)*WGN(kx,ky) ] 


ky)*WGN(kx.ky) ] . 


[2.2:28] 


[2.2:29] 


Both  m^  and  my  are  real  scalar  arrays  of  slope  components 
because  of  the  conjugate  symmetry.  ' 


Conversion  to  Slope  Magnitude  and  Slope  Azimuth 
The  fifth  and  final  step  is  to  convert  the  two  slope- 
component  arrays  into  a  slope  magnitude  array  beta(x,y)  and 
a  slope  azimuth  array  alpha(x,y),  where  beta  is  the  maximum 
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slope  at  the  coordinate  (x,y)  and  alpha  is  the  azimuth  angle 


to  the  direction  of  beta.  The  angles  alpha  and  beta  are 
related  to  and  my  by  the  geometric  relations: 

TAN(mx)  “  TAN(beta)*COS(alpha)  (2.2:30) 

and 

TAN(my)  «  TAN(beta)^SIN(alpha) .  (2.2:31) 

Therefore,  the  maximum  slope  magnitude  of  an  array  facet  is 

beta  =  ATAN  (TAN(mx)^  +  TAN(my)2]  [2.2:32] 

and  the  azimuth  angle  in  the  direction  of  the  maximum  slope 
is 


alpha  «  ATAN  ( TAN (my ) /TAN (m^) ] .  (2.2:33) 

Figures  2.2:2  through  2.2:4  illustrate  the  2D  Pierson- S tacy 
elevation  magnitude  spectra  for  friction  velocities  of  12.0, 
36.0,  and  60.0  cm/sec,  respectively.  The  spectra  are  orien¬ 
ted  with  wind  azimuth  “  -45  deg  (or  +135  deg  with  ambigui- 
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Figures  2.2:5  through  2.2:7  illustrate  the  2D  Pier son- S tacy 
slope  magnitude  spectra  for  friction  velocities  of  12.0, 
36.0,  and  60.0  cm/sec,  respectively.  The  spectra  are  orien¬ 
ted  with  wind  azimuth  »  -45  deg  (or  135  deg  with  ambiguity). 

Figures  2.2:8  through  2.2:10  illustrate  the  x-components  of 
the  above  slope  spectra.  Figures  2.2:11  through  2.2:13  il¬ 
lustrate  the  y-component  slope  spectra.  The  spectra  are 
oriented  with  wind  azimuth  «  -45  deg  (or  135  deg  with  ambig¬ 
uity)  . 

Figures  2.2:14  through  2.2:16  illustrate  the  sample  slope 
distributions  Pr (be ta , alpha)  for  synthetic  realizations 
using  the  above  slope  spectra.  The  spectra  are  oriented 
with  wind  azimuth  -  -45  deg  (or  135  deg  with  ambiguity) . 
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FIGURES  2.2:11-13.  Y- components  of  slope  magnitude  spectra. 
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Calculation  of  Total  and  Component  Slope  Variance 
The  slope  variance  is  calculated  from  the  ID  slope 
power  spectrum  for  a  specified  range  of  wavenumber: 


VAR(kl,k2) 


k2 

Jsik)*iy:  -  J] 

kl 


k2 

k*S(k)*dLN(k) 

kl 


[2.2:34] 


The  unresolved  (i.e.  both  x-  and  y-components  combined) 
slope  variance  is  calculated  from  the  2D  slope  power  spec¬ 
trum  for  a  specified  range  of  wavenumber: 


VAR(kl,k2) 


k2 


phi)*dkdphi 


■//■ 


k2 


kl 


S(kx,ky)*dkxdky  [2.2:35] 
♦ 

kl 


Likewise,  the  x-component  and  y-component  slope  variance  can 
be  calculated  by  substituting  or  Sy  for  S  in  Equation 
[2.2:35]  . 


The  2D  distribution  of  slopes  in  the  downwind  and 
crosswind  directions  correlate  well  with  the  results  of  Cox 
and  Munk  [1954a, b]  and  this  is  one  measure  of  the  adequacy 
of  the  Pierson-Stacy  model.  However,  Pierson  and  Stacy 
[1973]  suggest  that  the  optical  system  used  by  Cox  and  Munk 
acted  as  a  high-frequency  spatial  filter  on  the  reflected 
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radiance  from  the  sea  surface.  Pierson  and  Stacy  concluded 
that  the  calculation  of  variance  from  the  integration  of 
their  power  spectrum  over  k  and  phi  yielded  variances  which 
fit  reasonably  well  with  the  Cox  and  Munk  model  when  they 
imposed  an  upper  bound  of  k  =  1.2  radians  per  centimeter. 
This  corresponds  to  a  wavelength  of  5.24  centimeters.  To 
maintain  consistency  between  the  results  of  two  previous  ef¬ 
forts,  this  model  assumes  a  maximum  spatial  frequency  of  k  =» 
1.2  radians  per  centimeter. 

Figure  2.2:17  graphs  k^S(k)  versus  LOG(k)  for  three  friction 
velocities,  12.0,  36.0,  and  60.0  cm/sec.  This  graph  has  the 
interesting  property  that  the  area  under  the  curve  equals 
the  total  variance  and  the  area  between  two  wavenumbers 
equals  the  fraction  of  the  total  variance  between  the  two 
wavenumbers,  as  specified  in  Equation  [2.2:34].  The  wave- 
number  range  sampled  by  the  current  study  model  is  located 
between  the  two  vertical  lines. 

Figure  2.2:18  graphs  the  fractional  and  total  slope  variance 
over  the  friction  velocity  range  from  12.0  to  60.0  cm/sec. 
The  lower  line  represents  the  integration  of  variance  up  to 
kl  »  0.0375/cm.  kl  is  the  fundamental  spatial  frequency  for 
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-3.5  -3.0  -2.5  -2. 


FIGURE  2.2:17.  The  ID  Pierson  -  Stacy  slope  power  spectrum 
k*S(k)  versus  LOGlO(k). 


the  current  study  model,  that  is 


kl  -  kmax/(n/2)  -  ( 1 . 2/cm) / (64/2 )  -  0.0375/cm  [2.2:36] 


The  middle  line  represents  the  integration  of  variance  up  to 
k2  -  1.2/cm  -  kraax.  kmax  is  the  maximum  spatial  frequency 


for  the  current  study  model.  The  upper  line  represents  the 
integration  of  variance  over  the  entire  range  of  wavenumber. 
The  points  represent  the  measurements  of  Cox  and  Hunk 
11954b]. 


SLOPE  VARIANCE  versus  FRICTION  VELOCITY 


FIGURE  2.2:18.  Slope  Variance  versus  Friction  Velocity. 

Figures  2.2:1,  2.2:17,  and  2.2:18  are  identical  in  magnitude 
to  Figures  8.3,  8.4,  and  9.1  of  Pierson  and  Stacy  (  1973  ). 
Note  that  there  is  a  large  fraction  of  the  total  slope 
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variance  above  k  =  1.2/cm.  For  this  and  preceding  studies, 
this  fraction  represents  the  sub  -  resolution  slope  variance; 
its  effect  on  the  spatial  attentuation  of  the  reflected  and 
refracted  radiance  will  be  introduced  into  this  study  by  a 
correlation  filter  model  described  in  Chapter  2.5. 
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2.3  Synthesis  of  Skydome  Downwelling  Radiance 

Chapman  &  Irani  Model 

Chapman  and  Irani  [1981]  incorporated  a  combination  of 
the  modified  clear-sky  luminance  model  of  Hopkinson  [1954] 
and  the  pure  Rayleigh- scatter ing  polarization  model.  The 
analytic  Hopkinson  model  is  defined: 

LgkyC^iUjnu)  “  *  A  *  B  [2.3:1] 

where 

(mu,  nu)  the  downwelling  radiance  at  skydome  coordi¬ 
nates  (mu , nu) , 

mu  “  the  zenith  angle  to  the  skydome  location  [0:+90  deg], 
nu  =  the  azimuth  angle  to  the  skydome  location  [-180:+180 

<ieg]  , 

^ref  “  Lsky(®>®)  “  reference  radiance  at  zenith,  [2.3:2] 

A-  (l+COS(muo)^)/(l-COS(muo)2) ,  {2.3:3] 

B  -  l-EXP(-0.32*SEC(mu)) ,  [2,3:4] 

and 

COS(muQ)  =  COS ( thetaQ ) *COS (mu) 

+  SIN(thetao)*SIN(niu)*COSXnu-phio)  [2.3:5] 

such  that 

rauQ  “  the  angle  from  the  sun  to  a  sky  element, 
thetao  ”  zenith  angle  to  the  sun, 
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and 


phig  “  the  azimuth  angle  to  the  sun. 

Hopkinson's  model  was  one  of  the  earlier  responses  to  a 
1953  CIE  proposal  to  establish  a  standard,  analytic  clear- 
sky  radiance  distribution  to  serve  as  a  basis  for  daylight 
factor  calculations.  A  broadband  telephotometer  was  modi¬ 
fied  to  measure  the  integrated  radiance  over  a  5-degree  In¬ 
stantaneous  Field  Of  View  (IFOV).  The  actual  measurements 
used  in  this  model  were  made  under  the  clear  blue  skies  of 
Stockholm  (approximately  60  degrees  North  latitude) . 

Current  Study  Model 

This  study  uses  the  current  CIE  standard,  analytic 

clear-sky  radiance  distribution  [CIE, 1973)  for  the  sole 
reason  that  it  is  a  current,  accepted  standard: 

Lsky(niu,nu)  -  ^  A  *  B  /  C  [2.3:6] 

where 

A  =  0.91  +  10*EXP(-3*muo)  +  0 . 45*C0S (muQ ) ^ ,  (2.3:7] 

B  -  1  -  EXP(-0. 32/COS(rau) ) ,  (2.3:8] 

and 

C  -  0.274*(0.91+10*EXP(-3*thetao)+0.45*COS(thetao)2.  (2.3:9] 

All  other  parameters  are  as  previously  defined.  Although 
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both  the  CIE  model  and  the  Hopkinson  model  provide  broadband 
spectral  radiance  values,  the  results  from  the  CIE  model 
must  be  used  with  caution  when  applied  to  the  narrowband 
spectral  radiance  in  the  vicinity  of  the  peak  solar  spectral 
radiance,  particularly  in  the  vicinity  of  460  nanometers. 
Chapman  and  Irani  [1981]  applied  the  Hopkinson  model  to 
their  model  requirement  for  a  near  -  inf rared  narrowband 
distribution  and  noted  that  “measurements  of  sky  radiance 
which  we  have  made  show  varies  more  than  a  factor  of 
3  for  apparently  clear  skies.” 

This  study  requires  only  a  reasonable  relative  spatial 
distribution  of  radiance  and  does  not  attempt  to  acquire 
absolute  radiance  values.  Therefore,  the  convention  used  in 
this  study  sets  the  value  of  Lj-e  f  such  that  the  radiance  at 
the  solar  location  is  equal  to  100.0  in  arbitrary  units  of 
radiance.  All  other  radiance  values  can  be  expressed  as  a 
relative  percentage  of  the  total  radiance  in  the  vicinity  of 
the  sun. 

Figures  2.3:1  and  2.3:2  illustrate  two  of  the  11  synthetic 
total  skydome  radiance  distributions  used  in  this  study,  for 
a  solar  a:5lmuth  of  -45  degrees  and  solar  zenith  angles  of 
0.0  and  53.2  degrees,  respectively.  The  arrows  in  these 
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FIGURES  2. 3: 1-2.  Synthetic  skydome  radiances  distributions. 


Polarized  Rayleigh  Scattering  Model 
The  fraction  of  the  unpolarized  solar  radiance  that  is 
horizontally  polarized  by  Rayleigh  scattering  in  the  atmos¬ 
phere  is  defined: 

H  =  0 . 5* ( 1 - ps i ) +ps i*COS (nuQ ) ^  [2.3:10] 

where 

psi  -  0,94*(l-COS(muo)2)/(l+COS(muo)^) ,  [2.3:11] 

and 

nuQ  -  ACOS [ S IN ( the ta) *C0S ( the taQ) 

-  SIN(thetao)*COS(theta)*COS(phi-phio)/SIN(muo) ] .  [2.3:12] 

Likewise,  the  fraction  of  the  unpolarized  solar  radi¬ 
ance  that  is  vertically  polarized  by  Rayleigh  scattering  in 
the  atmosphere  is  defined: 

V  =  0. 5*(l-psi)+psi*(l-GOS(nuo)2) .  [2.3:13] 

All  other  parameters  are  as  previously  defined:  nuQ  is  the 
angle  between  the  vector  parallel  to  the  direction  of  polar¬ 
ization  and  the  projection  of  that  vector  onto  the  surface 
coordinate  plane.  psi  includes  the  multiplicative  depolari¬ 
zation  term  defined  by  Coulson  [1975]  to  account  for  aniso¬ 
tropy  of  scattering. 
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Figures  2.3:3  and  2.3:4  illustrate  the  hor i;^ontaIly  polar¬ 
ized  component  of  the  total  radiance  distributions  illus¬ 
trated  in  Figures  2.3:1  and  2.3:2. 

Figures  2.3:5  and  2.3:6  illustrate  the  vertically  polarized 
component  of  the  total  radiance  distributions  illustrated  in 
Figures  2.3:1  and  2.3:2. 
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FIGURES  2.3:3"4.  Horizontally  polarized  radiance  components. 
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2.4  Synthesis  of  Subsurface  Upwelling  Radiance 


Introduction 

Existing  linear  or  linearizable  models  for  subsurface 
upwelling  radiance  employ  one  or  more  limiting  assumptions: 

1)  the  existence  of  a  flat  water  surface, 

2)  an  homogeneous  subsurface  profile, 

3)  a  single-scattering  approximation  (i.e.  clear  or  shallow 
water)  , 

4)  direct  solar  illumination  only,  and/or 

5)  diffuse  sky  illumination  only  [Aas,1987;  Gordon  et  al., 
1975;  Gordon  6c  McCluney, 1975;  Philpot , 1987 ;  Zaneveld , 1982 ] . 

The  minimum  subsurface  model  for  this  synthesis  must 
assume  an  homogeneous  deepwater  subsurface  profile  in  order 
to  simplify  several  radiometric  and  mechanical  considera¬ 
tions  : 

1)  the  bottom  is  not  visible  and  therefore  not  a  radiometric 
factor , 

2)  surface  waves  do  not  mechanically  refract  (as  they  would 
in  shallow  water)  and  impart  energy  to  the  bottom, 

3)  the  interaction  of  wave  energy  with  subsurface  waters  is 
sufficient  to  make  the  inherent  optical  properties  of  the 
subsurface  homogeneous  at  all  radiome tr ically  significant 
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depths ,  and 

4)  the  subsurface  is  homogeneous  to  a  sufficient  optical 
depth  in  order  to  assume  that  the  subsurface  hemispheric 
radiance  distribution  (the  'sub do me')  is  spatially  invariant 
with  respect  to  the  image  sample  area  of  the  water  surface, 
i.e.  the  model  assumes  that  each  image  sample  area  on  the 
water  surface  'sees'  the  same  subsurface  radiance 
distribution , 

The  calculation  of  upwelling  subsurface  radiance  in  the 
presence  of  a  non-smooth  water  surface  is  complicated  by 
several  factors: 

1)  attenuation  and  refraction  of  the  above  -  surf ace  down- 
welling  radiance  by  the  rough  water  surface, 

2)  absorption  and  back- scattering  (single  or  multiple)  of 
the  below- surf ace  downwelling  radiance  due  to  the  inherent 
optical  properties  of  the  water  and  its  constituents, 

3)  attenuation  and  refraction  of  the  below- surf ace  upwelling 
radiance  by  the  rough  water  surface,  and 

4)  localized  total  internal  reflection  of  the  below- surf ace 
upwelling  radiance  where  the  angle  between  the  surface 
normal  vector  and  the  upwelling  radiance  vector  exceeds  the 
critical  angle  (48 . 8  degrees  at  460  nanometers) . 
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A  complete  synthetic  model  for  upwelling  subsurface  radiance 
would  fully  accommodate  its  parametric  dependence  on  the 
four  inherent  optical  properties  of  natural  waters  [Gordon 
et  al. ,1975]  : 

a  -  the  absorption  coefficient, 
b  -  the  scattering  coefficient, 
c  -  the  attenuation  coefficient,  and 
B(theta)  -  the  volume-scattering  coefficient, 
with  the  following  inter-relations: 

c  -  b  +  a  ,  and 
pi 

b  -  2*pi*  y*B(theta)*SIN(theta)*dtheta. 

0 

Two  nonlinear  integrations  would  be  applied  to  accommodate 
attenuation  of  a  non-flat  water  surface.  The  first  inte¬ 
gration  would  angularly  distribute  ti..e  refracted  downwelling 
surface  radiance  based  upon  the  slope  distribution  of  the 
total  surface  area  of  the  image.  The  second  integration 
would  angularly  distribute  the  refracted  upwelling  subsur¬ 
face  radiance  based  upon  the  individual  sTcpe  distribution 
of  each  image  sample  area. 
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In  essence,  at  least  three  independent  nonlinear  operations 
would  be  required  to  compute  the  subsurface  upwelling  radi¬ 
ance;  one  intermediate  operation  for  the  single-scattering 
model.  The  only  successful  technique  that  can  adequately 
model  this  level  of  complexity  (and  higher)  is  a  Monte  Carlo 
simulation  [Plass  &  Kattawar , 1969 ] ,  a  method  which  is  be¬ 
yond  the  scope  of  this  study. 

Chapman  &  Irani  Model 

No  subsurface  model  was  defined  by  Chapman  and  Irani 
[1981]  because  they  included  the  assumption  of  spectral 
sensing  in  the  infrared  where  transmittance  through  water 
approaches  zero. 


Current  Study  Model 

The  approach  for  this  study  is  to  employ  the  results  of 
previous  Monte  Carlo  simulations  as  ad  hoc  analytic  models. 
Results  have  been  published  by  Plass,  Kattawar  and  Guinn 
(1975,1976)  and  will  be  used  with  the  following  assumptions: 

1)  the  results  are  valid  in  a  narrowband  spectral  region 
centered  at  460  nanometers  (which  is  near  the  wavelength  of 
maximum  transparency  for  clear  water) , 

2)  the  optical  depth  tau  of  water  is  10  at  this  wavelength, 

3)  the  bottom  layer  has  unit  absorption,  and 
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4)  the  results  are  valid  over  a  broad  band  of  wind  veloci¬ 
ties  centered  at  1030  cm/sec  (measured  at  a  height  of  1950 
cm)  .  (This  is  equivalent  to  a  friction  velocity  of  36  cm/ 
sec  for  an  homogeneous  wind  profile,) 

Figures  2,4:1  through  2.4:5  illustrate  the  Monte  Carlo 
results  of  Plass,  Kattawar  and  Guinn  [1976]  for  solar  zenith 
angles  ofO,  15,  32,  57,  and  80  degrees,  respectively . 

The  upwelling  subsurface  radiance  observed  just  above 
the  surface  is  given  the  following  approximate  analytic 
expression  relative  to  the  reference  sky  radiance  at 

zenith : 

L„(beta,  alpha)  =  Lj.ef*Ro*C*(l+COS  (A*beta)  2)/2 . 0  [2.4:1] 

where 

L^(beta , alpha)  «  the  upwelling  subsurface  radiance  observed 

at  the  wave-slope  coordinates  (beta, alpha) , 

beta  =  the  maximum  wave-slope  angle  [0:+90  deg], 

alpha  «  the  azimuth  angle  to  the  wave-slope  angle  beta 

[ -180 :+180  deg] , 

^ref  “  reference  radiance  at  zenith,  [2.4:2] 

Rq  -  0.0208  -  the  unpolarized  Fresnel  reflectivity  at  normal 


81 


incidence  at  460  nanometers,  [2.4:3] 
C  -  0.32*10^,  [2.4:4] 
A  =  COS(thetao)2,  [2.4:5] 
and 

B  -  SIN(1.  [2.4:6] 
such  that 


thetaQ  «  the  zenith  angle  to  the  sun. 

Note  that  this  model  has  no  dependence  on  phiQ)  the  azimuth 
angle  of  the  sun. 

Again,  this  study  requires  only  a  reasonable  relative 
spatial  distribution  of  radiance  and  does  not  attempt  to 
compute  absolute  radiance  values.  Therefore,  the  value  of 
Lref  set  such  that  the  radiance  at  the  solar  location  is 
equal  to  100.0  in  arbitrary  units  of  radiance.  All  other 
radiance  values  can  then  be  expressed  as  a  percentage  of  the 
total  radiance  in  the  vicinity  of  the  sun. 

Figures  2.4:6  and  2.4:7  illustrate  the  two  synthetic  total 
subdome  radiance  distributions  for  solar  zenith  angles  of 
0.0  and  53.2  degrees,  respectively. 


83 


FIGURES  2. 4:6-7,  Synthetic  subdome  radiance  distributions. 
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Depolarized  Random  Scattering  Model 
Both  Beclcmann  and  Spizzichino  [  1963  ]  and  Konnen  [  1985  ] 
give  evidence  that  the  effect  of  rough  water  surfaces  on  the 
propagation  of  polarized  downwelling  radiance  through  the 
surface  is  a  depolarization,  either  through  multiple  reflec¬ 
tions  or  turbulent  refraction.  Therefore,  this  model  will 
assume  equal  fractions  of  horizontally  and  vertically  polar¬ 
ized  radiance : 

H  ~  V  -  0,5  [2,4:7] 

Figures  2,4:8  and  2.4:9  illustrate  the  identical  horizon¬ 
tally  and  vertica-lTy  polarized  components  of  the  to.tal 
up  welling  subsurface  (^subdome-)  radiance  distributions  illus  - 
trated  in  Figures  2.4:6  and  2,4:7. 
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2.5  Synthesis  of  Reflected  Skydome  Radiance 


Chapman  &  Irani  Model 

Chapman  and  Irani  [1981]  incorporated  a  variant  of  the 
law  of  Malus  into  their  calculation  of  reflected  skydome 
radiance : 

Lr  =-  [5.2:1] 

where 

R  “  the  Fresnel  reflectivity  (for  arbitrary  polarization) , 
and 

Lgky  "  sky  radiance  (for  arbitrary  polarization) . 

Their  paper  does  not  indicate  whether  the  attenuation  due  to 
surf ace  -  slope  projection  was  incorporated  in  their  model. 

Current  Study  Model 

The  radiance  reflected  from  the  water  s^urface  is  calcu¬ 
lated  by  the  same  method  used  by  Cox  and  Munk  [1954a]  and 
Saunders  [1967]: 

Consider  a  small  specular  facet  of  the  sea  surface  with  area 
dA  that  is  inclined  from  the  zenith  by  the  angle  beta.  The 
projection  cf  the  facet  onto  a  horizontal  surface  is 
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dAh  “  dA^COS (beta) .  [2.5:2] 

Likewise,  the  actual  area  of  the  sloping  facet  is 

dA  “  dAh*SEC(beta) .  [2.5:3] 

The  projection  of  the  actual  facet  area  onto  a  plane  normal 
to  the  incident  radiance  is 

dkj^  «  dA^COS  (omega  .  -  dA*COS  (theta-beta) 

-  dAh*SEC(beta)*COS (omega) ,  [2.5:4] 

where 

omega  «  the  angle  of  incidence, 
and 

theta  -  the  zenith  angle  of  reflection. 

Consider  the  probability  distribution  for  surface  slopes: 

Pr  (be  ta  ,  alpha)  -  Pr(Sj^,Sy)  -  Pr  ( dz/dx ,  dz/dy )  [2.,5:5] 

where 

alpha  =*  the  azimuth  angle  to  maximum  slope  angle  beta, 
and 

dz/dx, dz/dy  «  the  slope  components  unique  to  beta  and  alpha 
such  that 

dAh  *=  dx*dy,  [2.5:6] 
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TAN(Sx)  “  TAN(dz/dx)  -  TAN (be ta) ^COS ( alpha) , 


[2.5:7] 


and 

TAN(Sy)  «  TAN(dz/dy)  «  TAN(beta)*SIN(alpha) .  [2.5:8] 

The  projection  of  the  reflected  radiance  normal  to  the  plane 
of  reflection  can  then  be  defined  in  surf ace  -  slope  coordi¬ 
nates  (beta, alpha)  for  any  small,  specular  surface  facet  of 
slope  «  beta(alpha) : 

'  (beta  ,  alpha)  =  Lj.(beta,  alpha) *COS  (theta) 

“  R(omega)*L5^y(mu,nu)*C0S(omega)^SEC(beta) ,  [2.5:9] 

where 

R(omega)  -  the  Fresnel  reflectivity  of  the  water  facet  (for 

arbitrary  polarization) , 

and 

Lsky *“  the  incident  radiance  of  the  skydome  from  the 
direction  (mu,nu)  that  is  reflected  normal  to  the  defined 
plane  of  reflection  (theta  «  53.2  deg,  phi  «  180  deg)  for 
both  polarizations.  (The  calculation  of  the  incident  vector 
coordinates  from  the  reflection  and  surface  normal  vector 
coordinates  is  defined  at  the  end  of  this  chapter.) 

The  mean  reflection  radiance  perceived  by  an  observer 
at  the  reflection  coordinates  is  similarly  defined: 
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<L'>  -  <Lj.>'''COS( theta) 


R(omega)*Lg|^y (beta,  alpha)*Pr(beta,  alpha) 
*COS(omega)*SEC(beta)*dbetadalpha 


[2.5:10] 


over  the  full  distribution  of  surface  slopes.  This  value, 
combined  with  the  small  contribucion  due  to  refraction,  is 
computed  as  the  central  ordinate  of  the  radiance  magnitude 
spectrum,  M(0,0),  as  an  ensemble  average  of  spectra.  Be¬ 
cause  the  reflection  vector  (i.e.  line  of  sight)  is  fixed 
with  respect  to  the  other  geometries,  Lj-  can  be  linearly 
mapped  to  surf ace  -  slope  coord’nates  (beta, alpha)  once  the 
skydome  radiance  distribution  is  uniquely  determined. 

Figure  2.5:1  illustrates  the  mapping  of  the  function,  SEC 
(beta),  to  the  surf ace - slope  coordinates  (be ta , alpha) .  For 
this  illustration,  the  function  was  truncated  at  SEC(60  deg) 
for  values  of  beta  greater  than  60  degrees.  Note  also  that 
the  function  is  not  computed  for  values  of  beta  where 
(omega  -  mu)  -  (theta  -  omega)  >  90  degrees, 

i.e.  the  regions  where  surface  slopes  are  not  visible  with 
respect  to  the  line  of  sight. 


Figure  2.5:2  illustrates  the  mapping  of  the  function,  COS 
(omega),  to  the  surface  -  slope  coordinates  (beta , alpha) . 
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FIGURE  2.5:1.  Map  of  SEC(beta)  to  coordinates  (be ta , alpha) . 


FIGURE  2.5:2.  Map  of  COS(omega)  to  coordinates  (be ta , alpha) , 


Figures  2,5:3  and  2.5:4  illustrate  the  mapping  o£  Fresnel 

reflectivity,  R(omega) ,  to  surf ace  -  slope  coordinates 
(beta, alpha)  for  horizontal  and  vertical  polarizations, 
respectively , 

Figures  2.5:5  and  2.5:6  illustrate  the  mapping  of  skydome 

radiance,  Lgj^y  (mu  ,  nu)  ,  to  surf  ace  -  slope  coordinates  (beta, 
alpha)  for  horizontal  and  vertical  polarization,  respective¬ 
ly.  The  solar  zenith  angle  thetaQ  in  this  example  is  0 
degrees.  The  original  l-sky  <iis tr ibutions  in  skydome  coordi¬ 
nates  (mu,nu)  are  illustrated  in  Figures  2.3:3  and  2.3:4. 

Figures  2.5:7  and  2.5:8  illustrate  the  mapping  of  the  re¬ 
flected  skydome  radiance,  Lj. '  ,  to  the  surface-slope  coordi- 

zates  (beta, alpha)  for  horizontal  and  vertical  polarization, 
'"ely.  The  solar  zenith  angle  thetaQ  in  this  example 
is  0  aegrees . 
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FIGURE  2.5:3.  Map  of  Fresnel  reflectivity,  R(omega)  ,  to 
coordinates  (beta, alpha)  for  horizontal  polarization. 


FIGURE  2.5:4.  Map  of  Fresnel  reflectivity,  R(omega) ,  to 
coordinates  (beta, alpha)  for  vertical  polarization. 
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FIGURE  2.5:5.  Map  of  skydome  radiance,  Lg|j„(mu,nu) ,  to 
coordinates  (beta, alpha)  for  horizontal  polarization. 


FIGURE  2.5:6.  Map  of  skydome  radiance,  Lgj^y  (mu ,  nu)  ,  to 
coordinates  (beta, alpha)  for  vertical  polarization. 
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FIGURE  2.5:7.  Map  of  reflected  skydome  radiance,  Lj. '  ,  to 
coordinates  (beta, alpha)  for  horizontal  polarization. 


FIGURE  2.5:8.  Map  of  reflected  skydome  radiance,  Lj. '  ,  to 
coordinates  (beta, alpha)  for  vertical  polarization. 


Correlation  of  Sub-Resolution  Wa/e-Slope  Variance 
The  maximum  wavenumber  of  the  current  study  model  is 
kmax  =  1.2  per  centimeter  to  coincide  with  the  results  of 

other  studies  (Cox  &  Munk , 1 9 54a , b ;  Pierson  &  Stacy,  1973], 
This  corresponds  to  a  sample  surface  area  of 

”  2.6  cm  X  2.6  cm  »  6.76  cm^  [2.5:11] 

which  is  defined  in  the  literature  as  the  Cox-Munk  window. 

Because  slope  spectra  (cite  Figure  2.2:13)  reveal  sig¬ 
nificant  slope  energy  between  k  «  1.2/cm  and  k  *=  30  0/cm,  it 
is  important  to  model  the  effect  of  this  sub  -  resolution 
vari^rce  on  the  reconstruction  of  wave-slope  spectra. 
However,  it  is  unreasonable  to  synthesize  large  surfaces 
with  sampling  windows  of  the  order  «  1.0  mm^,  as  required 
to  consider  k  «  30  per  centimeter.  Previous  investigators 
[Chapman  &  Irani, 1981;  Wilf  &  Manor, 1984;  Schwartz  &  Hon, 
unpub.]  all  employed  the  Kirchoff  approximation  for  reflec¬ 
tion  from  rough  surfaces  [Kaj iya, 1985 ;  Beckmann  &  Spizzi- 
chino,1963] ,  which  essentially  replaces  a  rough  surface 
facet  by  its  mean  tangent  plane.  This  approximation  is 
valid  only  if  the  rough  sub  -  resolution  surface  is  of  low 
curvature.  However,  for  wind-driven  water-wave  surfaces,  it 
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is  exactly  the  spectral  region  above  k  >  1.0  per  centimeter 
where  all  the  spectral  energy  of  curvature  exists. 

Figure  2.5:9  illustrates  k^*S(k)  versus  k,  the  curvature 
power  spectrum  (after  Pierson  &  Stacy, 1973).  It  is  apparent 
that  the  Kirchoff  approximation  is  not  optimum  for  this 
particular  circumstance. 


k''3*S(k)  versus  LOGlO(k) 


FIGURE  2.5:9.  The  ID  Pierson-Stacy  curvature  power  spectrum 
k^*S(k)  versus  LOGlO(k). 


97 


Current  Study  Model 


To  quote  Stilwell  and  Pilon: 

"The  subresolution  waves,  especially  those  in 
the  capillary  regime,  can  have  significant  slopes. 

Since  they  are  unresolved  on  the  film,  the  inten¬ 
sity  variations  of  the  sky  are  partially  smoothed . 

This  effect  can  be  observed  by  examining  the  ref¬ 
lection  of  a  cloud  in  a  ruffled  water  surface.  As 
a  result  the  small  waves  can  smooth  the  sky  lumin¬ 
ance  distribution  and  allow  the  use  of  photogra¬ 
phic  procedures  on  days  in  which  the  sky  is  far 
from  a  monotonic  luminance  function.  Contingent 
only  on  the  distribution  of  sub  -  resolution  waves 
being  homogeneous,  the  effective  luminance  distri¬ 
butions  may  extend  the  environmental  conditions 
under  which  optical  transforms  are  useful." 

[Stilwell  6c  Pilon, 1974] 

An  alternative  method,  then,  for  introducing  the  effect  of 
sub  -  resolution  wave  slopes  is  to  assume  an  homogeneous  dis¬ 
tribution  and  use  it  as  a  correlation  filter  to  smooth  the 
reflected  skydome  radiance.  The  correlation  is  nonlinear  if 
executed  in  reflected  skydome  coordinates  (mu,nu).  However, 
a  linear  correlation  is  possible  if  executed  in  surface 
slope  coordinates  (beta, alpha) . 


The  unresolved  directional  wave-slope  variance  for  the 
wavenumber  range  k  >  1.2/cm  is  calculated  directly  from  the 
Pierson-Stacy  model,  A  directional  bivariate  normal  Gauss¬ 
ian  distribution  is  calculated  as  a  function  of  along-wind 
slope  variance,  cross-wind  slope  variance,  and  wind  azimuth: 
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Pr' (beta, alpha)  -  EXP( - (L2+M2)/2)/(2*pi*DEV^*DEVc) ,  [2.5:12] 
where 

L  -  TAN(beta)*COS(wind_az-alpha)/DEV^,  [2.5:13] 

and 

M  -  TAN(beta)*SIN(wind_a2-alpha)/DEVc ,  [2.5:14] 

such  that 

DEV^  -  SQRT ( along- wind  slope  variance), 

DEV(j  —  SQRT  (cross -wind  slope  variance), 
and 

wind_a2  -  the  wind  azimuth  (with  180-degree  ambiguity). 


The  directional  distribution  of  sub  -  resolution  wave  slopes, 
Pr ' (beta , alpha) ,  is  then  correlated  with  the  reflected  sky- 
dome  radiance,  Lj. '  (beta  ,  alpha)  , 


Lr 


" (beta , alpha) 

Lj. '  (beta ,  alpha)  ^ 


j.'  (b,a)*Pr'  (b-beta,a-alpha)*dadb 
Pr' (beta, alpha) ,  [2.5:15] 


which  follows  directly  from  Equations  [2,5:9]  and  [2.5:10], 
(The  denotes  the  double  correlation  operation,) 


Note  that  because  the  sub  -  resolution  wave-slope  distribution 
is  assumed  to  be  both  homogeneous  and  sy.mmetric  about  its 
central  ordinate,  Equation  [2,5:15]  could  also  be  implement- 
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ed  as  a  double  convolution  operation: 


Lj."  (beta ,  alpha)  -  Lj- '  (beta  ,  alpha)  ★  'k  Pr  '  (beta ,  alpha) 

-  Lr ' (beta , alpha)  ^  Pr ' (beta , alpha) .  .  [2.5:16] 

Figure  2.5:10  is  the  sub-resolution  wave-slope  distribution 
for  a  friction  velocity  of  12.0  cm/sec  and  a  wind  azimuth  of 
-45  deg  (or  +135  deg  with  ambiguity) . 

Figures  2.5:11  and  2.5:12  illustrate  the  correlation  of  Lr ' , 
the  reflected  skydome  radiance  (Figures  2.5:7  and  2.5:8), 
with  Pr',  the  sub  -  resolution  wave-slope  distribution. 


FIGURE  2.5:10.  Sub  -  resolution  wave-slope  distribution  Pr' 
for  -  12.0  cm/sec  and  wind_az  -  -45  deg. 
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tion  wave-slope  distribution  Pr'  (horizontal  polarization). 


tion  wave-slope  distribution  Pr'  (vertical  polarization). 
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Calculation  of  Reflection  Angular  Coordinates 
The  angular  coordinates  that  describe  the  ray  path  due 
to  reflection  can  be  calculated  if  two  of  three  vectors  (the 
surface  normal  vector  N,  the  incident  vector  I,  and  the 
reflection  vector  R)  are  known. 

Figure  2.5:13  illustrates  the  geometric  relations  and  nomen¬ 
clature  for  the  current  study  model. 

The  reflection  vector  is  fixed  in  this  model.  The  observer 
is  located  at  an  azimuth  angle  phi  of  180  degrees  and  zenith 
angle  theta  of  53.2  degrees  (the  Brewster  angle)  relative  to 
the  point  of  observation.  The  reflection  vector  R  ca.n  be 
resolved  into  its  unit  vector  coordinates  in  (x,y,z)  space: 


Rx  "  SIN(theta)*GOS(180 

deg)  , 

[2,5:17] 

Ry  =  SIN(theta)*SIN(180 

deg)  , 

[2.5:18] 

and 

R2  =  COS ( theta) . 

[2.5:19] 

The  surface  normal  vector  N  and  the  incident  vector  I  can  be 
similarly  resolved : 

Nx  «  SIN(beta)*COS(alpha) ,  [2.5:20] 
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Ny  “  SIN(beta)*SIN(alpha) ,  [2.5:21] 

and 

“  COS(beta) ;  (2.5:22) 

Rx  »  SIN(mu)*COS(nu) ,  [2.5:23] 

Ry  =  SIN(mu)*SIN(nu) ,  [2.5:24] 

and 

R^  "  COS(mu) .  [2.5:25] 


Because  the  vector  N  must  be  in  the  plane  containing  I  and  R 
and  because  it  must  also  bisect  the  angle  between  I  and  R, 
the  following  equations  have  unique  solutions: 


IN  “  RN  -  COS(omega), 

IR  ■=•  COS  (2*oraega)  , 

N  -  (R  -  I)/(2*C0S(oraega) , 
and 

R  =  N*2*C0S(omega)  -  I. 


[2,5:26] 

[2.5:27] 

[2,5:28] 

[2.5:29] 
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FIGURE  2.5:13.  3D  geometric  relations  and  nomenclature  for 
the  current  study  model. 
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2.6  Synthesis  of  Refracted  Subsurface  Radiance 

Chapman  &  Irani  Model 

No  refracted  subsurface  radiance  model  was  defined  by 
Chapman  and  Irani  [1981)  because  they  included  the  assump¬ 
tion  of  spectral  viewing  in  the  infrared  where  the  trans¬ 
mittance  of  water  approaches  zero. 

Current  Study  Model 

As  defined  in  Chapter  2.4,  the  upwelling  subsurface 
radiance  model  of  Plass  et  al.  [1976]  provides  the  radiance 
just  above  the  ocean  surface  as  a  function  of  zenith  angle 
of  observation.  Therefore,  no  angular  refraction  model  is 
required.  Only  attenuation  ^  due  to  surface  projection  (as 
described  in  Chapter  2.5)  needs  to  be  considered: 

The  projection  of  the  refracted  radiance  normal  to  the  plane 
of  observation  can  be  defined,  in  surf ace  -  slope  coordinates 
(beta, alpha)  for  any  small,  specular  surface  facet  of  slope: 

L^' (beta, alpha)  ^  (beta, alpha)*COS(omega)*SEC (beta) [2.6:1] 
where 

L^(beta , alpha)  «  the  refracted  subsurface  radiance  observed 

at  wave-slope  coordinates  (be ta , alpha) , 

and 
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omega  is  as  previously  defined. 


Figure  2.6:1  illustrates  the  mapping  of  ,  the  refracted 
subsurface  radiance,  to  the  surface- slope  coordinates  (beta, 
alpha)  for  identical  horizontal  and  vertical  polarizations, 
respectively.  The  solar  zenith  angle  in  this  example  is  0 
degrees.  The  original  unattenuated  upwelling  subsurface 
radiance  distribution,  L^,  is  illustrated  in  Figure  2.4:8,. 
Note  that  the  the  function,  SEC(beta),  was  truncated  for 
values  of  beta  greater  than  60  degrees  (as  in  Figure  2.5:1), 
in  order  to  maintain  the  scale  of  the  illustration. 


FIGURE  2.6:1.  Map  of  refracted  subsurface  radiance,  L^' ,  to 
coordinates  (beta, alpha)  for  both  polarizations. 
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Correlation  of  Sub-Resolution  Wave-Slope  Variance 


No  correlation  of  the  refracted  radiance  is  required 
for  the  current  study  model  since  the  Monte  Carlo  simulation 
of  Plass  et  al.  (1976]  has  already  incorporated  the  effect 
of  wave  slopes. 
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2.7  Generation  of  Synthetic  Radiance  Imagery 

The  integrated  current  study  model  can  generate  any 
combination  of  these  synthetic  radiance  conditions: 

1)  Horizontal,  Vertical  polarization,  or  Both  (unpolarized), 

2)  Reflected,  Refracted  radiance,  or  Both,  and 

3)  Sub  -  resolution  wave-slope  attenuation  (On  or  Off). 


Because  of  Brewster-angle  viewing  relative  to  the  mean  sea 
surface,  an  initial  assumption  of  the  current  study  is  that 
the  effect  of  vertically  polarized  radiance  is  at  a  minimum 
and  a  comparison  of  horizontally  polarized  radiance  spectra 
with  unpolarized  radiance  spectra  is  sufficient  to  demon¬ 
strate  the  effect  of  vertical  polarization.  A  second  as¬ 
sumption  is  that  the  effect  of  upwelling  subsurface  refrac¬ 
ted  radiance  is  small  relative  to  reflected  radiance  and  a 
comparison  of  reflected  radiance  spectra  with  combined  (re¬ 
flected  v  refracted)  radiance  spectra  is  sufficient  to  dem¬ 
onstrate  the  effect  of  refracted  radiance.  A  third  assump¬ 
tion  is  that  horizontally  polarized,  reflected  radiance 
spectra  synthesized  without  the  sub  -  resolution  wave-slope 


rXJLJU  Ulil\AJLCXU& 


J  Lt  UllC  U  ^  C 


Chapman  and  Irani  (1981]. 
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The  following  radiance  images  (and  their  magnitude 
spectra)  are  synthesized  in  support  of  the  current  study: 

Hl(x,y)  =  Horizontally  polarized,  reflected  radiance  image, 
Ll(x,y)  =  Total  (unpolarized),  reflected  radiance  image, 
H0(x,y)  =*  Horizontally  polarized,  reflected  and  refracted 
radiance  image, 

L0(x,y)  =  Total  (unpolarized),  reflected  and  refracted  radi¬ 
ance  image,  and 

H3(x,y)  «  Hl(x,y)  without  the  incorporation  of  the  sub-res¬ 
olution  wave-slope  correlation  filter  model. 

The  following  pages  illustrate  individual  realizations 
of  synthetic  images  that  were  generated  in  support  of  the 
current  study.  All  examples  are  LO  images  with  contrasts 
normalized  relative  to  a  discrete  32-level  gray  scale:  black 
corresponds  to  zero  radianc  and  white  corresponds  Co  the 
maximum  pixel  radiance  of  the  image.  Only  these  examples 
are  discrete:  the  actual  syntheses  are  real  scalar  arrays. 

Figures  2.7:1  through  2,7:3  illustrate  synthetic  images 
generated  by  filtering  the  same  white  noise  array  with  slope 
spectra  for  “  12.0,  36.0,  and  60.0  cm/sec,  respective¬ 

ly.  wind_az  “  135  deg  (-45  deg)  and  sun  is  at  zenith. 
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FIGURE  2.7:1.  LO  image. 

^fric  12.0  cm/sec 
Max  pixel  radiance  LO  -  1.526 
Avg  pixel  radiance  HI  -  0.578 
Avg  pixel  radiance  H3  -  0.528 
Avg  pixel  radiance  VI  -  0.C32 
Avg  pixel  radiance  LI  0.610 
Avg  pixel  radiance  H2  “  0.106 
Avg  pixel  radiance  V2  ”  0.106 
Avg  pixel  radiance  L2  -  0.212 
Avg  pixel  radiance  HO  -  0.684 
Avg  pixel  radiance  VO  -  0.138 
Avg  pixel  radiance  LO  -  0.822 


FIGURE  2.7:2.  LO  image. 

Vfj-ji^j,  =»  36.0  cm/sec 
Max  pixel  radiance  LO  -  1.894 
Avg  pixel  radiance  HI  -  0.602 
Avg  pixel  radiance  H3  -  0.564 
Avg  pixel  radiance  VI  -  0.050 
Avg  pixel  radiance  LI  -  0.652 
Avg  pixel  radiance  H2  -  0.105 
Avg  pixel  radiance  V2  -  0.105 
Avg  pixel  radiance  L2  -  0.210 
Avg  pixel  radiance  HO  -  0.707 
Avg  pixel  radiance  VO  -  0.155 
Avg  pixel  radiance  LO  -  0.862 


FIGURE  2.7:3.  LO  image. 

Vfric  -  60.0  cm/sec 
Max  pixel  radiance  LO  1.737 
Avg  pixel  radiance  HI  -  0.579 
Avg  pixel  radiance  H3  -  0.574 
Avg  pi:tel  radiance  VI  -  0.054 
Avg  pixel  radiance  LI  -  0.633 
Avg  pixel  radiance  H2  -  0.105 
Avg  pixel  radiance  V2  -  0.105 
Avg  pixel  radiance  L2  -  0.210 
Avg  pixel  radiance  HO  -  0.684 
Avg  pixel  radiance  VO  -  0.159 
Avg  pixel  radiance  LO  -  0.843 
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The  synthetic  image  in  Figure  2.7:4  is  a  different  synthetic 
realization  (i.e.  different  white  noise  spectrum)  using  the 
same  parameters  as  Figure  2.7:1.  Note  both  the  similarity 


of  the  image  and  its  statistic 


FIGURE  2.7:4.  LO  image. 

“  12.0  cm/sec 

Max  pixel  radiance  LO  -  1.523 
Avg  pixel  radiance  HI  -  0.578 
Avg  pixel  radiance  K3  -  0.526 
Avg  pixel  radiance  VI  -  0.031 
Avg  pixel  radiance  LI  -  0.609 
Avg  pixel  radiance  H2  -  0.106 
Avg  pixel  radiance  V2  -  0.106 
Avg  pixel  radiance  L2  -  0.212 
Avg  pixel  radiance  HO  -  0.684 
Avg  pixel  radiance  VO  -  0.137 
Avg  pixel  radiance  LO  -  0.821 


to  that  of  Figu.:';  2.7:1. 


The  final  example  in  Figure  2.7:5  has  -  60.0  cm/sec 


and  wind_az  is  now  0  degrees. 
FIGURE  2.7:5.  LO  image. 


Ill 


2.8  Slope  Spectra  Analysis  of  Synthetic  Images 

Analysis  of  slope  spectra  involves  several  related 
figures  of  merit  that  are  all  based  upon  the  difference  in 
slope  spectral  response  between  the  original  slope  magnitude 
spectra  used  in  the  synthesis  and  the  final  synthetic  image 
magnitude  spectra  resulting,  from  the  nonlinear  transforma¬ 
tion  of  wave  slope  to  radiance.  These  figures  of  merit  can 
be  correlated  to  either  wave  slope  variance  or  the  differ¬ 
ence  in  wave  slope  variance. 

The  first  figure  of  merit  is  the  2D  difference  (or  error) 
spectrum  D2(k,phi).  An  ensemble  average  of  four  independent 
spectral  realizations  of  the  same  synthetic  geometry  is  cal¬ 
culated  and  the  fundamental  component  N'(0,0)  (that  repre¬ 
sents  the  mean  image  radiance)  is  then  removed. 

4 

N'(k.phi)-^  Ni(k,phi)  [2.8:1] 

i-1 

N"(k,phi)  -  N'(k,phi)  -  N'(0,0)  [2.8:2] 

where 

N  -  the  magnitude  spectrum  of  the  synthetic  radiance  image, 
k  ~  wavenumber, 
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and 


phi  “  azimuth  angle. 

The  modified  image  magnitude  spectrum,  N*'(k,phi),  is  normal¬ 
ized  so  that  the  peak  response  matches  the  peak  response  of 
the  original  slope  magnitude  spectrum  MQ(k,phi).  The  motiva¬ 
tion  is  to  provide  a  scaled  difference  (error)  spectrum  to 
illustrate  the  nonlinearity  in  slope  spectral  response  of 
Nnorm(^>  phi)  relative  to  MQ(k,phi)  over  the  domains  of 
wavenumber  and  aziwth. 

Nnorm(^>P^i)  ”  ,  hi ) /MAX(Mo  (k  ,  phi  )  (2.8:3) 

D2(k,phi)  =  Mo(k,phi)  -  Nnorin<k,  phi)  [2. 8:4) 

Note  that  coordinates  k  and  phi  are  specified  here  for  the 
consistency  of  this  discussion  only.  The  actual  arrays  used 
in  this  study  are  specified  by  rectangular  spatial  frequency 
(wavenumber)  coordinates  (kj.,ky)  such  that 

D2(kx,ky)  «  D2(k^C0S(phi) ,k*SIN(phi)) .  (2.8:5) 

The  second  and  third  figures  of  merit  are  the  ID  squared 
difference  (error)  spectra  D2^(k)  and  D3^(phi).  The  motiva- 
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tion  is  to  provide  a  scaled  ID  variance  spectrum  to  illus¬ 
trate  the  nonlinearity  in  spectral  response  of  i^norm^^) 
relative  to  MgCk)  over  the  domain  of  wavenumber  only,  and  of 
Nnorm^P^^)  relative  to  Mo(phi)  over  the  domain  of  azimuth. 


Di(k)  ”  j 


2(k,phi) |2*dphi 


Di(phi)  -  j  |D2(k.phi) |2*dk 


[2.8:6] 


[2.8:7.] 


The  fourth  figure  of  merit  is  the  squared  integrated  value 
of  the  difference  (error)  in  slope  spectral  response  Dq. 
The  2D  difference  (error)  spectrum  D2(k,phi)  is  integrated 
with  respect  to  both  azimuth  phi  and  wavenumber  k.  The 
motivation  is  to  provide  a  single  number  to  describe  the 
nonlinearity  in  slope  spectral  response  in  the  calculation 
of  the  variance  of  i.e.  the  estimate  of  the  variance 
of  Mq ,  relative  to  the  actual  slope  variance  of  the  original 
(input)  spectrum. 


Do 


|D2(k,phi) |2*dkdphi. 


[2.8:8] 


The  cross-wind  and  along-wind  squared  differences  are  also 
calculated: 
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[2.8:9] 


DQc 

and 

DOa 


-// 

-// 


I  D2 (k , phi) *SIN(wind_az -phi ) | 2*dkdphi , 


I  D2  (k ,  ph.l)  *COS  (wind_az  -phi)  |  2*dkdphi  . 


[2.8:10] 


These  figures  of  merit  are  determined  for  each  of  four 
differentially  polarized  variations  of  the  same  synthetic 
image: 


Hl(x,y)  -  Horizontally  polarized,  reflected  radiance  image, 
Ll(x,y)  -  Total  (unpolarized),  reflected  radiance  image, 
H0(x,y)  -  Horizontally  polarized,  reflected  and  refracted 
radiance  image, 

L0(x,y)  -  Total  (unpolarized),  reflected  and  refracted  radi¬ 
ance  image ,  and 

H3(x,y)  -  Hl(x,y)  without  the  incorporation  of  the  sub-res¬ 
olution  wave-slope  correlation  filter  model. 


where 

L 

Nji(k^,ky)  -  1 

J  IMi(x,y) 

for  IM-H1,L1,H0,L0,H3  and  1-1-4.  [2.8:11] 

Because  of  the  large  number  of  spectra  to  be  processed,  the 
Results  will  include  only  the  D1  and  DO  data. 
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Figure  2.8:1  illustrates  a  typical  2D  difference  spectrum 
D2(kx»ky)  for  a  single  synthetic  realization  of  image  HI, 
where  wind  azimuth  is  0  degrees,  the  sun  is  at  zenith,  and 


the  wind  friction  velocity  is  12.0  cm/sec.  Note  that  this 


example  is  an  'alphascale'  representation,  where  'a  -  z^ 


corresponds  to  increasing  negative  scaled  values  and  'A  -  Z' 


corresponds  to  increasing  positive  scaled  values.  Blanks 
correspotid  to  near-zero  deviations  (errors)  between  spectra. 


aL5C01Ht.A:HXGa»LOM,OSLTA  «  0.1495111  -4.022899SC-02  S.(041917I<03 

fcbbbtatbaatbsAbcbbbcdcld**  •  bB  aadccdbcbbabbbAbbbbbbbaaab  51 

aabbbabtrcb^riibcaaacd  A  cba«b  bacAatb  A  B  dbcbacbccaaaabbaaaac  50 

•*bbbbbbbcbbbbbbb€<lBA  adb  dc  «aa  bb  Bbaabbccbaabbbaaabb  29 

Abbbcbaaabbbbbbcd  aa  a  cd  a  aaBAab  bba  ADcdbbcbaabbcbaaba  29 

aababbaaabcaaacA  aa  a  A  b  abb  aa  AAbb  bb  b  caaatabbbbbaaa  27 

abaabcbaaaabbbCAAB  aAC  a  a  bb  bA  abda  C  A  Bbacebbbabbaaa  29 

aaaabbbbbaabbCAAAC  AAA  aa  e  aaAbbbbab  CAABB  Ccbbbbaabbbaa  29 

bbaabbaaaabBBACBAA  ABC  bb  b  baaaaa  AA  B  /BBcbaaabbbab  24 

aaaabbaabbOBCBBAA  bcaab  a  Ac  aaadda  AAA  Adcaabbbab  25 

acabbcbbcBABB  A  a  aca  a  b  a  a  acca  aa  A  AAbabbbaab  22 

abbaaabbBAB  a  AAB  A  aa  oaa  bcb  bba  aA  BA  C  AA  Abaaaabb  21 

aabaaabcABA  A  A  Aaa  AaabbA  aaAA  a  A  BAB  AA  AAAAcbaaaba  20 

aaaaabbBABA  AAA  C  aa  bb  a  Aa  a  aAAAB  BA  ABBcaaaaa  19 

abbaccBABBAACB  A  b  bab  cadaab  d  A  aABAA  ABAAcbaba  19 

batabCABBAABBCBBAB  aaaccc  a  ABbbfac  CA  a  ABABC  AA  Cbbba  17 

IbaaaaCBBAABCBCAAABA  aaaBab  ABbbdbbabcAB  b  C  CBB  BA  Caaaa  19 

baaaCA  AA9BC9ABB  AAA  a  aabAaab  e  a  ABBAAAACB  BCA  BBOaab  15 

bbbbOAAABAACBACA  CB  C  aaa  aa  cdaccb  A  B  AABCCCBCBA  ABBBaab  14 

^  baaCCBBCABCCBOOBBB  AAB  A  AAbbA  dbaabcaAAA  BA  ABBAACB  AABBOaa  15 

baaCBBCCCCCBBCACBAA  BA  A  AAad  Baac  ab  ABCBA  BBBBBBCBAAABBCBaa  12 

aiBABBCCCABCbCAAA  ABCBOBaaabcda  bcc  a  CSC  BABACCCACCCBBCba  11 

baBAA  ABBA  CBABBBCBBCBCBCa  A  afa  A  aa  BBBBA  BAACCBBOCCCCCCAACDb  10 

baDBCBCDBBABBCCCBBCAACBACCJI  bbb  aAAAA  8CCAABB  CCXXXDCBCDCCBABCb  9 

aaBBBBCSCAACDOOOBBCBBCC  B  A  Aaa  a  BSBAA  CCADDCBCCDBCCBiBAABa  9 

aCAABBBCBAABCBBCCBBBBOAAB  AA  ccd  BBOBBBBCBACB  BCCCCBCCCBBiBC  7 

abCBBBBCCBCDBBCCCSKCOBCOBCCB  bbcbca  COBAOBBOCCCABBOCCABBOCBCCC  9 

bOCCaCBCCCbOCOCCBCCBrCBOCBCB  dfadX>CBA  BUCOrBCDOCCCSDCBCBCCBBBB  S 

aCCCBCCCCCOOCCCODOOCOICrrCOABCACTbAafOCZ&IBOBBCDBOCDDDOBBBCBABCC  4 

aCCBBCBCCCDOCCOCCCODIUnCSmUbf  BTCrtzmCUBOOBCDCCDOACCCBABA  5 

baCBAAlCCBOCBOOCDCClOBICHCCKMJK  CbJJtOTrrODfSlCaCCBOC&CBCDCBCS  2 

aCBSaBaOCOCCCOtOOOE100BOG2IC4NTVW  X5rHKlHI>rcr«nbDOOCCDCDCCBBCBBB  1 

BABBCBCCDCBCDBCCDOriBrCrXLOtlfXS  EZWrOtXrCmn>OCCB2X»CDCCBClBAB  0 

aBBBCBBCCbCDCCOOOOBrBrGrDItXJQfTSX  mm<NKlGCSO0BBCDDKDCCCDCSBBBBBC  -1 

bBCBOCBCDCOBCCBCXIXOOnrrCIJJLC  KJKXCCMCBIOBCCSCDOBCDOCCaAABCB  -2 

aABABCCCADOCCDCBCOBCBCXmirSTB  fbABn  SCBrUIBOCCCSCCbOCCCBCBBCC  ”5 

aCCBASCBBBOODOCOBOCXBOftOBCSraAbOCACBAXXarrCXOCOODDCCCOOCCCCCBCCC  *4 

bBBBBCCBCBCOOCCCDDCBrDKSBl  ABCOdafd  BCXOiBarXCCBCCOCDOCCCBCBCai  -9 

aCCCBCPBBACCSlBACCCOBBBCABOC  acbcbb  BCCXOCBDOtOCCCUSCBCCBBBBCO  >9 

aCBBUCCCBCCCCB  BCABCBBBBOBB  dCO  AA  BAABBrtBBCCXXOBAABCBBBAAC  -7 

aaBAABBBCCBOCCBCDDACC  AABBB  a  aaA  A  B  CCBBCBBOOOOCAACXXISBABa  -9 

bbCBABCCDCBCSDCSCC  BBAACCB  AAAAa  bbb  BCCABCAACBBCCCBBAlBOOClOa  *9 

bbOCAACCCCCCSBBCCAAB  ABBBB  aa  A  afa  A  aCXCBCSBCBBBABC  ABBA  AABa  -10 

aabCBBCCCACCCABAB  CBC  a  ccb  adcbaaaBOBCBA  AAACX>CBACCCBBABa  -11 

baaOClBAAABCBBBBBB  ABCBA  ba  caaB  daAA  A  AB  AABCACBBCCCCCBBCaa  -12 

baaOBBAA  BCAABBA  AB  JUAacbaabd  AbbAA  A  BAA  BBBOOBCCBACBBCCaa  -15 

bbaalBBA  ABCBCCCBAA  S  A  bccadc  aa  aaa  C  BC  ACABCAABAAABbbb  -14 

bbaaCBB  ACB  btabaabbA  a  c  baaAbaa  a  AAA  bbaacbaaa  ACaaa  -19 

baaaaC  AB  BBC  C  b  lAcbabbdbbBA  baBaaa  ABAAACBCBAABBCaaaa  -19 

babbbC  AA  CBABA  a  AC  cafbbBA  a  cccaaa  BABBCBBAABBACbaaa  -17 

aab^bcAABA  AABAa  A  d  baadae  bab  b  A  BCAABBABceabb  -19 

aaaaaacBBA  AB  BAAAa  a  aA  a  bb  aa  C  AAA  ABABbbaaaa  -19 

aabaaabcAAAA  AA  BAB  A  a  AAaa  AbbaaA  aaA  A  A  ABAcbaaaba  -20 

abbaaaabA  AA  C  AB  Aa  abb  bcb  aaa  aa  A  BAA  a  BABbbaaabb  -21 

abaabbbabAA  A  aa  acca  a  a  b  a  aca  a  A  BAABcbbcbbao  -22 

ababbbaaedA  AAA  addaaa  cA  a  baacb  AABBCBObbatbbaaa  -25 

bbabbbaaabcBBA  B  AA  aaaaab  b  bb  CBA  AABCABBbaaaabbaab  -24 

aaabbbaabbbbcC  BBAAC  babbbbAaa  o  aa  AAi.  CAAACbbaabbbbbaia  -29 

aaaabbabbbccabB  A  C  adba  Ab  bb  a  a  CAa  BAACbbbaaaabcbaab  -29 

aaaabbbbbaaaaao  b  bb  bbAA  aa  bba  b  A  a  aa  Acaaaebaaabbaba  -27 

aabaabcbbaabcbbdcOA  abb  baABaa  a  do  a  aa  dcbbbbbbaaabcbbb  -29 

abbaaabbbaabccbbaabB  bb  aaa  cd  bda  ABdchbbhbbtx’hhbhbbba  -29 

acaaaabbaaaacebcabcbd  B  A  baaAcab  baabc  A  dcaaacbbacbcbbbcbbba  -50 

bbaaabbbbbbbabbbabbcbdeedaa  Bb  a  aadddcbbbcbaabaaabaaabbb  -51 

bbcabbabbbbbbaabaaabbbhbcof  dadf  aca  f  dadf  gcbbbbbaa  abaabbbbbbabbacb  -  5  2 

FIGURE  2.8:1.  2D  difference  (error)  spectrum,  D2(kx*^y^* 
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3.0  RESULTS  AND  DISCUSSION 


The  D'l  results  (slope  variance  versus  wavenumber;  slope 
variance  versus  azimuth)  are  listed  in  Appendix  I,  These 
results  provide  the  most  graphic  illustration  of  the  wave- 
slope  error  generated  by  the  parametric  variation  of  wind 
azimuth,  solar  position  and  wind  velocity.  The  Dq  results 
(partial  and  total  integrated  slope  variance)  are  listed  in 
Appendix  II.  The  D2  difference  (error)  spectra  (from  which 
the  D]^  and  Dq  results  are  derived)  are  not  included  with 
this  report  to  avoid  cumbersome  detail  (i.e.  360  graphic 
examples  of  three-dimensional  difference/error  spectra) . 
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3.1  Discussion  of  Dq  Results 

Please  refer  to  the  Dq  results  in  Appendix  II. 

Parametric  Variation  of  Mean  Radiance 
The  mean  radiance  reflected/refracted  in  the  direction 
of  observation  is  the  central  ordinate  of  the  forward  Four¬ 
ier  transform  of  the  radiance  image  and  is  calculated  for 
each  imaging  geometry  and  for  each  of  five  polarized  radi¬ 
ance  conditions: 

HI  -  reflected  horizontal  radiance, 

LI  -  reflected  total  (horizontal  +  vertical)  radiance, 
HO  -  reflected  &  refracted  horizontal  radiance, 

LO  -  reflected  &  refracted  total  radiance,  and 
H3  -  reflected  horizontal  radiance  without  the 
sub  -  resolution  wave-slope  model  (essentially  a  reconstruc¬ 
tion  of  the  Chapman  &  Irani  synthesis.) 

H3  will  be  compared  with  HI  as  an  examination  of  the  effect 
of  sub  -  resolution  wave  slopes  on  model  results. 

As  expected,  the  following  conditions  are  observed: 
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1)  The  mean  radiance  is  maximum  when  the  imaging  geometry 
favors  specular  reflection  of  the  sun,  i.e.  the  solar  posi¬ 
tion  is  azimuth  angle  phiQ  “  0.0  deg  and  zenith  angle  thetaQ 
«  53.2  deg  (denoted  (phiQ , thetaQ)  for  the  remainder  of  this 
discussion) .  The  second  highest  mean  radiance  is  observed 
where  the  sun  is  at  zenith  (i.e  (0,0)).  Mean  radiance  de¬ 
creases  as  sun  azimuth  varies  from  0  degrees. 

2)  Under  the  conditions  of  maximum  solar  reflection  and 
Vfric  “  12.0  cm/sec,  the  slightly  disturbed  water  surface 
yields  a  mean  radiance  of  approximately  1.98  for  LO  (aver¬ 
aged  over  the  four  wind  azimuths)  .  This  value  compares 
favorably  with  the  theoretical  LO  value  of  2.62  when  the 
surface  is  a  totally  flat,  specular  surface.  Mean  radiance 
drops  to  1.75  when  ^fric  “  36.0  cm/sec  and  drops  to  1.50 
when  "  60.0  cm/sec.  As  the  surface  becomes  rougher, 
the  probability  of  reflecting  facets  having  zero  slope  de¬ 
creases  and  less  of  the  direct  solar  radiance  is  reflected. 

3)  Under  the  conditions  of  maximum  solar  reflection  and 
Vfric  “  60.0  cm/sec,  mean  radiance  is  highest  (1.57  for  LO) 
when  the  dominant  wind  azimuth  wind_az  is  orthogonal  to  the 
plane  of  reflection  and  lowest  (1.45  for  LO)  when  wind_az  is 
parallel  to  the  plane  of  reflection.  As  the  surface  becomes 
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rougher  due  to  wind,  the  slope  distribution  increases  its 
spread  along  the  azimuthal  plane  of  the  wind  defined  by 
wind_az.  When  wind_az  is  orthogonal  to  the  plane  of  re¬ 
flection,  there  is  a  greater  probability  that  a  facet  will 
reflect  radiance  from  the  skydome  near  the  plane  of  reflec¬ 
tion  than  when  wind^az  is  parallel  to  the  plane.  With  the 
sun  located  in  this  plane,  the  probability  that  a  facet  will 
reflect  radiance  from  the  vicinity  of  the  sun  is  greater 
when  wind_az  is  orthogonal.  This  effect  can  be  observed,  to 
a  lesser  degree,  for  all  sun  orientations  in  the  plane  of 
reflection.  The  effect  diminishes  as  decreases  be¬ 

cause  of  the  lower  directional  attenuation  of  the  dominant 
low-frequency  waves . 

Demonstration  of  Statistical  Model  Stability 
Comparisons  of  symmetric  test  cases  with  three  differ¬ 
ent  solar  geometries  provide  an  indication  of  the  statisti¬ 
cal  stability  of  the  complete  model. 

TABLE  3.1:1.  Symmetric  test  cases  and  their  parameters. 

Comparison  1  Comparison  2  Comparison  3  ^fric 

12  and  24  07  and  19  11  and  23  12  cm/sec 

60  and  72  55  and  67  59  and  71  36  cm/sec 

36  and  48  31  and  43  35  and  47  60  cm/sec 

Sun  (0,53.2)  (0,0)  (180,53.2) 

Coord 
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The  three  sets  of  test  cases  have  mirror  symmetry  with 
respect  to  observation:  the  sun  is  in  the  plane  of  reflec¬ 
tion  (phiQ  =  0  or  180  deg)  but  the  dominant  wind  azimuths 
wind^az  for  the  comparison  cases  are  directed  45  degrees 
away  from  the  the  plane  of  reflection  and  differ  in  sign 
only.  The  respective  test  cases  should  demonstrate  similar 
statistics  based  on  the  ensemble  average  of  the  magnitude 
spectra  of  the  four  synthetic  scenes  within  each  test  case. 


TABLE  3.1:2.  Comparison  of  mean  radiances  between  symmetric 
geometries . 


Comparison 

of  symmetric 

test  cases 

Condition 

12  vs 

24 

60  vs 

72 

3  6  vs 

48  1 

HI 

1.7183 

1.7183 

1.4580 

1.4629 

1.2105 

1.2145 

LI 

1.7740 

1 . 7739 

1 .5352 

1.5404 

1.2886 

1.2929 

HO 

1.8241 

1.8241 

1.5635 

1.5682 

1.3155 

1.3196 

LO 

1.9855 

1 . 9854 

1 . 7461 

1 . 7511 

1.4987 

1.5030 

Avg  Diff 

+  0.0027  % 

+  0.3145  % 

±  0.3147  % 

Condition 

07  vs 

19 

5  5  vs 

67 

31  vs 

43  1 

HI 

0.9664 

0.9649 

1.0081 

1.0093 

0.9621 

0.9645 

LI 

0.9760 

0.9742 

1.0300 

1.0304 

0.9966 

0.9977 

HO 

1.1519 

1.1503 

1.1918 

1.1928 

1 . 1436 

1.1459 

LO 

1.3469 

1 . 3451 

1 . 3975 

1 . 3974 

1 .3596 

1 . 3606 

Avg  Diff 

±  0.1530  % 

+  0 . 0622  % 

+  0.1583  % 

Condition 

11  VS 

23 

59  vs 

71 

3  5  vs 

47  1 

HI 

0.4582 

0.4577 

0.4607 

0.4619 

0.4223 

0.4237 

LI 

0.4674 

0.4668 

0.4788 

0.4800 

0.4456 

0.4470 

HO 

0.5640 

0.5635 

0.5661 

0 . 5672 

0.5274 

0.5288 

LO 

0.6790 

0 . 6784 

0.6897 

0 . 6907 

0 .6558 

0 .6571 

Avg  Diff 

+  0.1036  % 

±  0.2121  % 

+  0.2766  % 

Mean  radiances  (the  ensemble  DC  compoueuts)  are  similar  to 
within  +  0.32%  among  all  comparisons.  There  does  not  appear 
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to  be  any  correlation  between  average  percent  difference  and 
solar  geometry  even  though  the  mean  radiance  diminishes  as 
the  geometry  moves  away  from  maximum  solar  reflection. 

The  ensemble  fundamental  components  differ  more  than 
expected  and  this  is  an  indication  that  a  larger  ensemble 
may  be  one  additional  requirement  for  statistical  stability. 


TABLE  3.1:3. 


Comparison  of  fundamental  components  between 
symmetric  geometries . 


Comparison  of  symmetric  test  cases 


Condition 

12  vs 

24 

60  vs 

72 

36  vs 

48  1 

HI 

0.0359 

0.0315 

0.0243 

0.0220 

0.0183 

0.0167 

LI 

0.0400 

0.0374 

0.0269 

0.0245 

0.0194 

0,0177 

HO 

0.0347 

0.0320 

0.0229 

0.0206 

0.0170 

0.0158 

LO 

0.0376 

0.0350 

0.0241 

0.0218 

0.0169 

0.0159 

Avg  Diff 

+  8.3628  % 

+  9.4935  % 

±  7.6205  % 

Condition 

07  vs 

19 

5  5  vs 

67 

31  vs 

43  1 

HI 

0.0216 

0.0225 

0.0120 

0.0126 

0.0060 

0.0060 

LI 

0.0211 

0.0223 

0.0106 

0.0114 

0.0048 

0.0048 

HO 

0.0194 

0.0204 

0.0094 

0.0099 

0.0058 

0.0056 

0.0168 

0.0180 

0.0056 

0.0061 

0.0104 

0.0086 

Avg  Diff 

±  5.2375  % 

+  6.2567  % 

+  5.1890  % 

Condition 

11  VS 

23 

5  9  vs 

71 

3  5  vs 

47  1 

HI 

0.0124 

0.0126 

0.0083 

0.0085 

0.0051 

0.0048 

LI 

0.0135 

0.0138 

0.0091 

0.0094 

0.0052 

0.0049 

HO 

0.0112 

0.0115 

0.0069 

0.0069 

0.0040 

0.0038 

0.0111 

0.0114 

0.0063 

0.0063 

0 . 0032 

0.0032 

Avg  Diff 

+  2-.  2504  % 

+  1,3861  % 

+  4,1629  % 

For  these  three  geometries,  the  fundamental  components  are 
similar  to  within  +  10%  among  all  comparisons.  This  may  be 
a  poor  choice  of  imaging  geometry  for  statistical  validation 
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because  the  contrast  ratios  (fundamental/DC  components)  are 
not  the  highest  among  the  full  set  of  test  cases.  The  main 
consideration  that  applies  to  these  particular  geometries  is 
that  a  nearly  saturated  image  (i.e  a  very  high  DC  component 
relative  to  the  remainder  of  the  spatial  spectrum)  skews  the 
confidence  of  spectral  estimation  in  favor  of  the  DC  compo¬ 
nent,  a  parameter  which  has  an  expected  value  of  zero  in  the 
slope  spectral  estimate,  i.e.  the  water  surface  is  expected 
to  have  a  mean  slope  of  zero.  However,  there  does  appear  to 
be  a  correlation  between  a  decrease  in  the  mean  radiance 
with  a  decrease  in  the  average  percent  difference  (and 
therefore  increased  statistical  confidence)  in  the  fundamen¬ 
tal  components.  A  fundamental  consideration  iuor  this  method 
is  to  determine  an  optimal  geometry  which  removes  spectral 
energy  from  the  DC  component  and  distributes  it  across  the 
rest  of  the  spatial  spectrum  with  the  intent  of  increasing 
the  statistical  stability  of  the  non-DC  portion  of  the 
spectrum . 

Correlation  of  Contrast  Ratio  with  Slope  Variance 

As  explained  in  the  Methods  section,  the  DC  component 
of  the  radiance  image  magnitude  spectrum  is  removed  and  the 
remaining  image  spectrum  is  normalized  with  respect  to  the 
input  slope  magnitude  spectrum  Mq  by  a  geometric  scaling 
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factor  between  the  peak  slope  components.  The  difference 
between  the  two  spectra  is  then  defined  as  the  error,  or 
difference,  spectrum.  Integration  of  the  squared  error  over 
both  wavenumber  and  azimuth  yields  the  Dq  results,  the  total 
slope  variance  due  to  errors/differences  between  the  two 
spectra . 

The  contrast  of  the  wave  image  was  defined  by  Chapman 
and  Irani  as  the  ratio  of  the  fundamental  component  to  the 
DC  component  and  was  used  as  a  figure  of  merit  in  their 
error  analysis.  A  comparison  of  the  contrast  ratio  of  the 
image  spectrum  with  the  resulting  integrated  squared  devia¬ 
tion  (variance)  from  its  difference  spectrum  demonstrates  a 
good  correlation  between  high  contrast  and  low  error.  A 
simple  matrix  is  presented,  where  the  contrasts  of  the 
images  for  each  geometry  (with  the  exception  of  H3)  are 
ranked  from  1  to  4  (high  contrast  to  low  contrast)  and  the 
corresponding  Dq  results  are  likewise  ranked  from  1  to  4 
(low  to  high  error). 
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TABLE  3.1:4.  Rank  correlation  matrices  for  contrast  ratio 
vs.  slope  variance. 


CONTRAST 
112  3  4 


V 

1| 

22 

1 

1 

0 

A 

2| 

1 

18 

3 

2 

Vfric  “  60.0  cm/sec 

R 

3| 

1 

3 

14 

6 

^1 

0 

2 

6 

16 

CONTRAST 

1 

1 

2 

3 

4 

V 

ii 

17 

1 

0 

6 

A 

2| 

1 

14 

8 

1 

Vfr^c  "  36,0  cm/sec 

R 

3| 

1 

7 

13 

3 

4| 

5 

2 

3 

14 

CONTRAST 

1 

1  2 

3 

4 

V 

ii 

9  4 

5 

6 

A 

2| 

2  10 

6 

6 

Vfric  “  12.0  cm/sec 

R 

3| 

4  9 

6 

5 

4| 

9  1 

7 

7 

The  above  results  display  a  high  correlation  at  -  60.0 
cm/sec  and  increasing  loss  of  correlation  as  decreas¬ 
es.  This  can  be  explained  as  a  result  of  decreasing  statis¬ 
tical  confidence  and  increasing  ambiguity  among  contrast 
values  and  Dq  values.  For  -  60.0  cm/sec,  the  differ¬ 
ences  between  contrast  ratios  and  Dq  values  are  generally  on 
the  order  of  +10%;  for  =  36.0  cm/sec,  the  differences 
are  often  less  than  +5%;  for  “  12.0  cm/sec,  the  dif- 
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ferences  are  often  less  than  +1%.  With  the  assumptions  1) 
that  the  fundamental  component  (the  numerator  of  the  con¬ 
trast  ratio)  has  an  average  model  error  tolerance  of  +6% 
(based  on  the  analysis  of  Table  3.1:3)  and  2)  the  corres¬ 
ponding  Dq  value  may  have  a  similar  tolerance,  it  is  reason¬ 
able  to  consider  that  the  confidence  of  unambiguous  rank-or¬ 
dering  should  decrease  for  values  at  and  below  ^  36.0 
cm/sec . 


Determination  of  Optimal  Imaging  Geometry 
Figure  3.1:1  provides  a  graphic  comparison  of  the  Dq 
values  for  each  geometry.  The  intent  of  this  comparison  is 
to  determine  those  imaging  geometries  which  provide  the  low¬ 
est  integrated  squared  errors  (slope  variance)  for  all  sam¬ 
pled  variations  of  dominant  wind  azimuth  wind_az  and  fric¬ 
tion  velocity 

Within  this  limited  sample  space,  the  unambiguous 
selection  for  optimal  imaging  of  wind-wave  slopes  is  a 
geometry  which  requires  the  sun  to  be  directed  135  degrees 
away  from  the  azimuth  of  reflection  (i.e.  observation)  or, 
by  complement,  45  degrees  away  from  the  solar  azimuth  of 
maximum  specular  reflection.  The  Dq  results  for  this  ge¬ 
ometry  are  generally  lowest  for  all  polarized  conditions. 
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FIGURE  3.1:1.  Range  of  slope  variance  (error  )  versus  test  case  number 

-3 

(slope  variance  expressed  as  slope^)  x  10  '*) . 
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The  second  choice  of  imaging  geometry  places  the  sun  at  the 
position  of  maximum  specular  reflection  but  this  is  an  am¬ 
biguous  selection  because  other  geometries  provide  lower  Dq 
results  for  particular  values  of  wind_az  and 

This  result,  from  two-dimensional  analysis  of  the  cur¬ 
rent  study  model,  is  in  full  agreement  with  the  results  of 
the  one  -  dimens ional  survey  of  Chapman  and  Irani  [1981]  and 
demonstrates  a  secondary  validation  of  their  approach. 

Effect  of  Subsurface  Refraction  on  Slope  Variance 

The  following  conditions  are  observed: 

1)  The  effect  of  refraction  on  slope  variance  is  minimal 
when  contrast  ratios  are  high  relative  to  the  set  of  all 
test  cases.  It  was  expected  that  the  additional  nonlinear¬ 
ity  created  by  refraction  in  the  transformation  of  slope  to 
radiance  would  consistently  generate  higher  slope  variances 
in  HO  and  LO  relative  to  HI  and  LI.  However,  the  stronger 
correlation  between  contrast  and  slope  variance  tends  to 
swamp  any  effect  created  by  subsurface  refraction. 

2)  As  expected,  the  effects  of  refraction  are  most  notice¬ 
able  when  the  sun  is  furthest  away  from  point  of  maximum 
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when  the  proportion  of  refracted 


specular  reflection,  i.e. 
radiance  relative  to  reflected  radiance  is  largest.  In 
these  test  cases,  the  contrast  ratios  approach  a  minimum 
among  all  test  cases  and  the  slope  variances  approach  a  max¬ 
imum.  The  large  differences  between  HI  and  HO  and  between 
LI  and  LO  confirm  that  the  decrease  in  contrast  and  increase 
in  slope  variance  are  both  due  to  the  effect  of  refraction 
on  the  minimum  reflection  cases. 

Effect  of  Polarization  on  Slope  Variance 
A  comparison  of  HI  with  LI  indicates  no  apparent  corre¬ 
lation  between  polarization  and  slope  variance.  Again,  the 
stronger  correlation  between  contrast  and  slope  variance 
tends  to  swamp  any  effect  created  by  differences  in  polar¬ 
ization.  It  was  expected  that  the  decrease  in  mean  radiance 
from  LI  to  HI  would  be  offset  by  an  increase  in  contrast  and 
consequent  decrease  in  slope  variance.  No  such  effect  was 
discernible  among  this  small  sample.  Because  of  Brewster- 
angle  viewing,  the  effect  due  to  the  addition  of  vertically 
polarized  radiance  should  be  at  a  minimum  among  all  observa¬ 
tion  geometries. 
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3.2  Discussion  of  Results 

Please  refer  to  the  graphic  results  (slope  variance 
versus  wavenumber;  slope  variance  versus  azimuth)  in  Appen¬ 
dix  I.  Note  that  the  slope  variance  for  HI  is  plotted  as  a 
solid  line;  LO  is  plotted  as  a  dashed  line;  H3  is  plotted  as 
a  dotted  line. 

Slope  Error  as  a  Function  of  Wavenumber 
The  following  conditions  are  observed: 

1)  For  «  12.0  cm/sec,  the  major  source  of  slope  error 
occurs  in  the  vicinity  of  the  dominant,  low- spat ial - f re - 
quency  peak  centered  near  k  -  0.12  rad/cm. 

2)  With  the  sole  exception  of  the  optimal  imaging  geometry 
(as  determined  in  Chapter  3.1),  the  higher  -  spat ial - frequency 
slope  errors  increase  relative  to  the  error  peak  near  k  *= 
0.12  rad/cm  as  Increases. 

3)  With  the  sole  exception  of  the  optimal  imaging  geometry, 
the  higher  spatial  frequencies  (above  k  «  0.12  rad/cm)  are 
the  dominant  source  of  slope  error  at  ”  60.0  cm/sec. 


4)  At  the  optimal  imaging  geometry,  the  major  source  of 


slope  error  remains  in  the  vicinity  of 
spatial  -  frequency  peak  centered  near  k  =» 
values  of 


tne  dominant,  low- 
0.12  rad/cm  for  all 


5)  At  the  optimal  imaging  geometry  (and  at  the  geometry  of 
maximum  solar  reflection)  ,  the  plots  of  HI  and  LO  (as  well 
as  the  unplotted  LI  and  HO  data)  closely  approximate  each 
other  v/ithin  the  set  of  test  cases.  The  same  plots  within 
the  other  imaging  geometries  tend  to  approximate  each  other 
at  ^fy:±c  “  12.0  cm/sec  and  then  deviate  from  each  other  at 
higher  values  of 


Variation  of  H3  with  Respect  to  Wavenumber 
H3  represents  the  results  based  on  the  model  o 
and  Irani  where  no  sub  -  resolution  wave-slope  model 
porated.  HI  represents  results  based  upon  the  inc 
a  radiance  attenuation  model  to  add  the  effect  of 
lution  wave  slopes  on  scene  radiance. 


f  Chapman 
is  incor- 
lusion  of 
sub  - reso - 


The  following  conditions  are  observed: 

1)  K3  does  not  demonstrate  a  good  correlation  with  any  of 
the  model  parmeters  as  a  function  of  wavenumber.  Within  the 
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limited  scope  of  this  experiment,  H3  appears  to  be  independ¬ 
ent  of  the  model  parameters  as  a  function  of  wavenumber. 

2)  As  expected,  H3  maps  most  closely  with  HI  when  “ 
12.0  cm/sec.  The  correlation  filter  that  is  used  to  attenu¬ 
ate  radiance  as  a  function  of  the  sub  -  resolution  wave-slope 
distribution  provides  a  nearly  impulse  response  at  “ 
12.0  cm/sec  than  at  higher  values  of  resulting 
difference  between  the  HI  and  H3  radiance  models  is  slight. 

3)  Within  the  constraint  of  optimal  imaging  geometry,  H3 
maps  closely  to  HI,  LI,  HO,  and  LO  when  “  12.0  cm/sec 
but  deviates  significantly  at  higher  values  of  The 
most  general  trend  to  note  is  that  the  slope  error  associa¬ 
ted  with  H3  becomes  much  larger  relative  to  the  other  four 
radiance  conditions  as  wavenumber  increases. 

4)  Within  the  constraint  of  maximum  solar  reflection  geome¬ 
try,  H3  maps  closely  to  HI,  LI,  HO  and  LO  at  higher  values 
of  ^fx:±c  deviates  when  =  12.0  cm/sec.  This  effect 
is  opposite  to  that  observed  in  3)  above. 

The  demonstrated  independence  of  H3  as  a  function  of 
wavenumber  is  also  in  agreement  with  the  results  of  Chapman 
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and  Irani.  However,  the  significant  result  to  note  is  that 
the  other  four  radiance  conditions  do  demonstrate  a  definite 
correlation  with  wavenumber  at  the  optimal  imaging  geometry. 
This  correlation  is  also  exhibited  in  the  geometry  of  maxi¬ 
mum  solar  reflection,  although  to  a  lesser  degree. 

Slope  Error  as  a  Function  of  Azimuth 
The  following  conditions  are  observed: 

1)  There  is  a  definite  azimuthal  dependence  between  slope 
variance  and  the  parameters  of  solar  azimuth  and  dominant 
wind  azimuth.  This  dependence  is  most  readily  observable  in 
the  two  most  optimal  imaging  geometries. 

2)  When  ^fy:xc  ^  12.0  cm/sec  and  wind_az  is  in  the  plane  of 
reflection,  a  dominant  error  lobe  is  observable  which  has  an 
orientation  within  20  degrees  of  the  azimuth  orthogonal  to 
the  sun  position.  A  minor  error  lobe  is  observable  in  the 
azimuthal  plane  of  the  sun,  i.e.  approximately  orthogonal  to 
the  dominant  lobe. 

3)  When  “  12.0  cm/sec  and  wind_az  is  varied,  the  error 
lobes  redistribute  so  that  the  dominant  errors  angularly 
skew  toward  the  plane  of  the  dominant  wind  azimuth. 
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4)  As  '^fxic  increases,  the  error  lobes  tend  to  angularly 
spread  out  so  that  the  dominant  errors  redistribute  between 
the  solar  azimuth  and  the  dominant  wind  azimuth. 

Variation  of  H3  with  Respect  to  Azimuth 

The  follov/ing  conditions  are  observed: 

1)  The  H3  results  follow  the  general  trends  outlined  in 
Chapter  3.2  above.  As  discussed  with  respect  to  wavenumber, 
H3  maps  closely  to  the  results  of  the  other  four  radiance 
conditions  when  “  12.0  cm/sec. 

2)  Where  H3  deviates  significantly  from  the  other  four  con¬ 
ditions,  the  additional  slope  error  is  observed  to  align 
with  the  plane  of  the  solar  azimuth.  This  result  is  most 
noticeable  within  the  two  most  optimal  geometries. 

The  demonstrated  dependence  of  H3  as  a  function  of 
azimuth  is  also  in  general  agreement  with  the  limited  re¬ 
sults  of  Chapman  and  Irani.  However,  the  results  for  HI, 
LI,  HO,  and  LO  demonstrate  a  more  consistent  correlation 
with  the  variation  of  model  parameters. 
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4.0  CONCLUSION 


The  results  of  the  current  study  have  established  three 
main  conclusions:  1)  the  limited  results  of  Chapman  and 
Irani  [1981]  have  been  generally  verified,  2)  the  existence 
of  an  optimal  imaging  geometry  for  slope  spectrum  estimation 
is  indicated,  and  3)  the  enhanced  model,  incorporating  the 
effects  of  sub  -  resolution  wave  slopes  and  subsurface  refrac¬ 
tion  on  observed  radiance,  demonstrates  a  significant  effect 
on  wave-slope  spectra  derived  from  imagery. 

The  most  conclitsive  result  is  the  analytic  determina¬ 
tion  of  the  region  containing  an  optimal  geometry  for  the 
estimation  of  wave-slope  spectra  from  imagery  under  the 
specified  conditions  of  this  study.  Through  the  use  of  an 
integrated  set  of  analytic  models,  the  variation  of  a  lim¬ 
ited  number  of  parameters  has  predicted  the  magnitude  of 
slope  variation  as  a  function  of  azimuth  and  wavenumber. 
These  predictions  exceed  the  capability  of  a  deterministic 
second-order  theory.  While  this  study  has  been  directed 
toward  a  generalization  of  the  Chapman  and  Irani  study,  the 
generalized  model  requires  a  more  complete  exploration  of 
the  parametric  surface. 
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Stiggestions  for  Further  Research 


There  are  several  potential  directions  for  further 
research  which  will  build  upon  this  study.  The  types  of 
research  fall  into  two  main  categories:  1)  comparison  of  the 
analytic  model  with  empirical  data  derived  from  a  physical 
experiment  and  2)  refinement  and  extension  of  the  parametric 
surface  exploration  of  the  analytic  model. 


Phys ical  Experiment 

It  is  obvious  that  an  analytic  model  requires  empirical 
results  to  verify  its  predictions.  However,  the  complexity 
of  this  model  and  its  limited  utility  presumes  that  the  real 
world  problem  has  an  even  higher  level  of  complexity.'  The 
requirement  still  exists  for  the  execution  of  a  controlled 
experiment  to  calibrate  the  various  techniques  that  attempt 
to  measure  the  two-dimensional  elevation/slope  spectra  of 
large  water  surfaces  under  natural  conditions. 


Refinement  of  the  Analytic  Model 

The  current  study  verified  the  limited  results  of 
Chapman  and  Irani  {1981]  and  amplified  their  method  to 
execute  an  only  slightly  larger  exploration  of  the  paramet- 
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ric  surface.  There  are  many  assumptions  in  this  model  which 
remain  to  be  tested  through  a  vigorous  exploration  of  the 
currently  unvaried  parameters : 

sample  size  and  kmax 
ensemble  size 

radiant  wavelength  and  index  of  refraction 
zenith  angle  of  observation 


Also ,  o 

ther  analytic 

functions 

await  comparison 

with 

current 

analytic  model 

and  with 

existing  empirical 

data ; 

input  elevation  spectrum 
clear  sky  versus  cloudy  sky  radiance 
clear  water  versus  turbid  water  refraction 
sub -resolution  wave -slope  distributions 
-  Gram- Charlier  versus  Gaussian 
A  secondary  (and  more  vigorous)  approach  to  the  simulation 
of  wave  shadowing  could  also  be  explored:  the  elevation 
power  spectrum  is  available  for  the  generation  of  synthetic 
height  arrays  which  can  be  used  to  modify  the  radiance  dis¬ 
tributions  at  each  surface  element.  A  comparison  of  the 
current  synthesis  with  this  nonlinear  masking  technique  and 
with  real  imagery  could  potentially  verify  the  utility  of 
the  current  synthesis  at  increasingly  larger  zenith  angles 
of  observation . 
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Additionally,  a  refined  exploration  of  the  current 
parameter  set  might  establish  an  even  more  optimal  imaging 
geometry.  The  results  of  the  current  study  have  placed  the 
new  point  of  departure  at  a  solar  azimuth  angle  45  degrees 
from  the  point  of  maximum  specular  reflection.  Small  varia¬ 
tions  of  solar  azimuth  and  solar  zenith  angle  from  this 
point  may  isolate  the  ideal  image  geometry  for  slope  spec¬ 
trum  estimation. 

Finally,  the  method  of  analysis  can  be  more  robust. 

The  current  study  deviates  from  the  Chapman  and  Irani  study 
with  respect  to  the  choice  of  figures  of  merit.  However, 
the  current  study  is  consistent  with  the  earlier  study  with 
respect  to  the  implied  assumption  that  the  output  radiance 
magnitude  spectrum  should  be  compared  with  the  undecomposed 
slope  magnitude  spectrum.  There  is  evidence  [  S  tilwell.,  1969  ; 
Kasevich , 1975 )  that  the  x-component  slope  magnitude  spectrum 
alone  or  a  linear  combination  of  the  two  s lope  -  component 
magnitude  spectra  may  yield  a  more  accurate  synthetic 
representation  of  the  radiance  magnitude  spectrum,  A  more 
detailed  analysis,  using  results  from  the  current  study 
model,  could  verify  this  theory  and  provide  a  more  accurate 
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APPENDIX  I 


-  Results 


The  two -dimensional  graphic  results  for  the  72  combina¬ 
tions  of  solar  position,  dominant  wind  a::imuth,  and  wind 
friction  velocity  are  presented  in  Appendix  I.  Each  page 
presents  the  graphic  variation  of  wind  friction  velocity  for 
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Each  set  of  four  pages  presents  the  graphic  variation  of 
dominant  wind  velocity  wind_az  for  a  single  solar  position: 
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Second  Page 
Third  Page 
Fourth  Page 


wind_az  "  0  deg  (or  180  deg  with  ambiguity) 
wind_az  =  45  deg  (or  -135  deg  with  ambiguity) 
wind_az  =  90  deg'  (or  -  90  deg  with  ambiguity) 
wind_Az  «  135  deg  (or  -  45  deg  with  ambiguity) 


The  graphic  variation  for  the  six  solar  positions  is  then 
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APPENDIX  II 


"  Dq  Results 

The  one  -  dimens ional  graphic  results  for  the  72  combina¬ 
tions  of  solar  position,  dominant  wind  azimuth,  and  wind 
friction  velocity  are  presented  in  Appendix  II. 

The  results  for  each  test  case  are  organized  in  the 

following  format: 

PARAMETERS  -  The  format  for  the  input  file  PARM.DAT  is 
defined  in  Appendix  III. 

MAGNITUDE  ARRAY  SCALING  FACTORS  -  For  each  of  the  five 
radiance  conditions ,  the  parameters  are  defined: 

XX(0,0)  “  Mean  Radiance 

High  =  Peak  Radiance  for  k  >  0 

Factor  «  Geometric  Scaling  Factor  between  Peak  Radi¬ 
ance  and  Peak  Slope  Magnitude 

INTEGRATED  VARIANCE  FROM  POWER  SPECTRA  -  The  variance  is 
calculated  from  SO,  the  input  slope  spectrum,  and  for  each 
of  the  five  normalized  radiance  spectra. 

A,C,S  -  Along-Wind,  Cross-Wind,  &  Summed  Variance 
X,Y,S  -  Cross-Field,  Along-Field,  &  Summed  Variance 

INTEGRATED  SQUARED  DEVIATION  FROM  DIF  SPECTRA  -  The  variance 
is  calculated  from  the  error  (difference)  spectra  between 
SO,  the  input  slope  spectrum,  and  each  of  the  five  normal¬ 
ized  radiance  spectra . 

A,C,S  -  Along-Wind,  Cross-Wind,  &  Summed  Variance 
X,Y,S  -  Cross-Field,  Along-Field,  &  Summed  Variance 
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PARAHETERS  PARAMETERS 
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53.20000  0.0000000E+00  0.0000000E400  100.0000  53.20000  45.00000  53.20000  9.885010 
1.337000  1.0200000E-09  99999.00  99999.00  1.337000  1.0200000E-09  99999.00  99999.00 
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PARAMETERS  PARAMETERS 
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^  hO  KO  o  CM 

m  5  oa  ro 

CM  «o  cn 

O-  «if  ^  ^  « 

fo  era  ^  GO 


CM  CM  CM  CM  CM 
^  CA  <sa  «■» 


CM  CM  CM  CM  CM  CM 


I 


I 


•  I  •  I  '  I 

Ui  Ui  UJ  LU  UJ  UJ 

ITS  ro  OS  ro  CM  ro 

CM  ^  ro  -.o  O'  irt 

in  V  ho  tra 

C9  esa  r*^ 

ira  ««*  ^ 

os  CM  ro  -o  ho 

CM  ^  hO  «a  <3 

•  ••••• 

'O  h«»  CO  OO  O' 

CM  CM  CM  CM  CM  CM 


I 

UJ 

hO 


I 


m  O'  O'  CO  CM 
04  CM  oo  ira  CM 
»  O'  ^  P'.  "O 
ho  rs  ^  ^ 
ro  ^  ro  h'. 
'O  h'.  ira  ira  r'' 
•  •  •  •  • 
^  ^  ^  CM 


cn 

or  -.o  CO  O' 

CO  m  ^  tsa 

os  CO  os  CO 

c_a  ira  O'  <0  -i-i 

<x  ira  tsk  CA  -<-« 

LU  CM  OO  ro  O' 

*0  --O  P".  CO 

CO  •  >  >  • 

sc  isa  cA  «a  Oft 


I 


I 


CO 

XU 


til  LlJ  111  LU  lii 
hO  O'  I"*  «Ol 
'O  CM  O'  -O  h-^ 
CM  m  r-s.  m  CM 
00  ^  oo  tra  ^ 

CM  OO  ^  CM 
O'  V  os  ^  "4 
r".  'O  ho  m  ho 
•  •  •  •  • 
CM  CM  ho  hO  hO 


^  CM  CM  CM  CM  CM 

^  oa  isa  4sa  IS) 

.•  I  •  I  I  I 

UJ  UJ  cu  Ixl  UI  UJ 

m  ro  oo  ho  CM  ho 

CM  tsk  ho  >o  O'  ira 

m  «^r  ^  fo  m 

"O  oo  ^  ksa  r'« 

^  m  ^  'O  ^ 

h'-  CO  CM  ho  'O  hO 

CM  ^  ho  esa  ^ 

"O  h**  h'»  oo  eta  O' 

CM  CM  CM  CM  CM  CM 

^  OSk  qb  QEa  «k 

■  I  i  I  I  I 

Ut  UJ  UJ  Uf  UJ  Ul 

'O  <si  tsa  CO 

t'O  <  ro  ira  h-» 

CM  r>.  h**  ^  <Sk  ^ 

CP'  :5:  h'.  CM  ira 

p''  h'*  m  ho  oo  ira 

hO  taa  O'  ira  CO  O' 

OO  'O  CM  '-'4 
•  ••••■ 
ho  ^  40  yj  in 


CM  CM  CM  CM  CM  CM 
^  ISk  —  “ 


I 


I 


I 


I 


CM  CM 
—  «k 


I 


I 


ot  cs  car  cas  or 

a  CS  O  CO  o 

c-a  cj  cj  cj  cj 


i  *0  ira  <0  ^ 

CO  ^  ira  2! 
ho  CM  os  m  csk  ^ 

m  kck  CO  CM  ira  ho 

ho  O'  *0  r's  ro 

CM  00  h''  ^  t'' 

1  rs.  ^ 


S  aT  aT  acT  aT  aT 

^  CO  CD  CD  CO  CO 
»— 1 

UJ  a:  re  a:  a:  a: 


cc: 

<x 


CO 

<3Z 


<sa  tsk  9k  cai  4Sa 
^  9a  tsk  oca 
esa  esa  ho 


CO  era 


O' 

•  •  •  «  • 

hO  •eh  '(T  ^  ^ 

cn  cn  cn  cn  cn 

c-T  cjt*  c-T  cj*  CJ* 
<r  <t’  <x  <£  -aT 

QCk  9k 


UJ  UJ 
91  CM 
f"-  CM 
CM 

ho  cn 

h'. 
hO 


CM  CM  CM 
9a  ksa  <Ck 


O'*  CO  'O  CM 

oo  hn  «o 


hO  .,0 


r''»  h"  ^  in 

—  OS  ho  CO 
O'  9k  C" 
CM  CO  C" 
*0  GO  00 


«  o=  CO  cc 

§  §  §  s 


'  <r 

z> 


hO  CM  CM  CM  CM  ^ 

era  cn  cn  cn  cn  cn 


X  X  X  X  X  X 

<Sk  —•  9k  9k  hO 

cn  — I  3=  ^  =c 

^  oer  or  oc  or  or 

«  <E  <c  <c  <a: 

=►>=>=>=>> 


h''  csk  m  m  Ob' 

m  O'  c>'  •a*  cEk 

^  m  00  r'»  m 

CM  •S'  'O  00  "• 

_ •  •  •  O'  00 

9k  P'*  ho  •  • 

9k  CM  9k  P'o  O' 

^  m  CM 


hO  hO  hO  CM  CM 

9k  9k  CA  9k  9a 


t 


I 


I 


UJ  UJ  UJ  Ul  Ul 
ho  p*..  *0  ho  m 
^  P'»  •o  00 

r*''  •*•  10  CO 
hO  ho  p''  m  'O 
2:  CM  •r  •'* 
m  •r  po 

9a  r'<«  os  9a  9a 

•  •  •  •  • 

'O  M*  m  — •  CM 


m  — •  p'^  CM  m  ho 

CM  p'.  CM  •«•  00  *-• 

m  •-*  O'  CM  m 

*>0  ho  in  m  CM  <j 

!?*  K2  :S  *  C:  *»* 

h"  m  00  f'..  00  ro 

CM  ^  -cr  CM 


in  —•  p'»  CM  m  ho 

CM  h'.  CM  ^  OO 

m  "I  O'  ^  CM  in 

'O  ho  in  m  CM  -o 

^  m  'O  9k  C"  9a 

h"  in  CO  f''*  oo  m 

CM  ^  V  CM 


cn 


c-a 


•>0 

qb 

z 

9a 

z 

"O 

9a 

z 

CM 

CM 

CM 

CM 

CM 

CNi 

CM 

CM 

z 

Z 

z 

Z 

z 

z 

z 

z 

z 

z 

z 

UJ 

LU 

UJ 

z 

LU 

<r 

GO 

CO 

z 

CM 

in 

in 

•o 

0* 

"O 

or 

in 

in 

O' 

P'4 

z 

in 

hO 

tn 

O' 

X 

— «4 

z 

z 

z 

O' 

in 

CM 

—4 

'O 

c-a 

ro 

in 

z 

in 

CM 

PO 

m 

O' 

UJ 

— M 

z 

in 

O' 

z 

p^ 

ho 

■“4 

ou 

in 

O' 

in 

CM 

O' 

z 

hO 

O' 

z 

z 

PO 

O' 

CM 

•«r 

O' 

—4 

m 

O' 

O'  •q-  O'  CM 
P'H  9a  i''« 
rN.  in 
^  m  ro  O' 
"O  •<*  in 

•O  O'  hO 


cc  CM  ^  CO  p>^  CM 


CM  CM 
9a  9k 


O'  O' 

cn  •  •  ^ 

z  9a  94  9a 

►-* 

— J 

<c  or  or  ce  or  oe 

CO  ca  o  o  o  o 


CM  CM 
9k  9a 

II  II 

UJ  UJ  Ul  UJ 

*0  P'v  00  hO  hO  CM 

X  ho  'O  in  in 

po  rn  ho  CM  ^  O' 

m  ho  9k  ho  -o  rn 

ST  CM 

CM  •*•  9k  CM  — ^  ■ 

O'  in  'O 


po  in  'O 

CM  CM 


Oi  P^  9k 

CM  CM  CM 
Ok  91  9k 
t  1  I 
Ul  UJ  Ui 

hO  Ch-  ^ 

ns  °° 

•«•  tea  ira 

O'  9k  9i 
in 
^  in 
CM  •<•  *<? 
•  •  • 
%0  CM  O' 


CM 


9:  ^  ^  ^  hO  GO 


oi  aT  aT  aT  re  aT 

<C  CO  CO  to  CO  CO 

»"«  1— f  *— «  kM-t  *-'• 

LU  a:  z  a;  z  z 

ca 

9^  ^  9k  ^  9a 

z  ^  s'  ®r  ^ 

^  9k  9k  hO 

z  ^  z  ^  z 


az 

<c 

> 


<r 

or 

CO 


O'  9-  9l 


tn  cn  cn  cn  cn  cn 
CJ  cT  c-T  e-T  cj*  c-T 
<x  <c  <E  <z  <a:  ^ 

s  S  H  g  ^ 


qz  (XL  ex:  od  cc 

«  <r  «  <r  <c 

=>  a*  =>  r>  => 


z 

cc 

<c 


"I  CM  z  91  ^ 

•O  pn  •e  ho  9k 

O'  h"  O'  9k 

p''  9a 

z  'O  z  CM  •r 

hO  9k  CM  hO 

O'  9k 


PO  O'  9a  91  m  qk 

cn  z  cn  z  cn  z 

>r  >r  >r 

X  X  X  .vT  X 

CSk  9k  hO 

cn  z  ^  Z  <i-J  Z 


az  or.  cc 
<r  <t  <r 
=»•=>> 


A-42 


PO  PO  m  hO  CM 

9k  CA  «k  9k  z 

I  I  I  I  I 

UJ  Ul  Ul  UJ  Ul 

O'  r".  CM  in  •o 

r'«  OS  <.0  p>. 

-O  z  ««*  CM 

PO  9i  ho  m 

in  CM  O'  *0  ^ 

p'»  ^f'  'O  «o 

p"  M"  ho  in  — • 

<£  h'.  p''  O'  O'  *>'4 

oc 

C-a  ho  PO  hO  PO  ho 

UJ  qk  9k  ^  9a  qk 

a.  t  I  I  I  I 

Z  UJ  UJ  z  Ui  Ul 

*-4  in  9k  C''  p's 

u.  h'^  *0  O'  in 

•— 4  z  p''  •'4  *>0  p'^ 

CO  z  C"  •er  "O  z 

9k  PO  9k  10  O' 

Z  Z  CM  ^  hO 

Z  CM  CM  in  z 

or  •  4  •  •  • 

u.  hO  PO  «er  •r  410- 

z 

o  hO  PO  ho  PO  m 

9k  ^  9k  9k  9k 


I 


I 


I 


^  w-  — .  Ul  Ul  z 

O'  ho  CM  10 

•>  z  OS 

Z  hO  Z  O'  h''  z 

z  z  li”!  in  'O  ho 

^  S2 

ca  O'  »-«  9k  9k  r'^ 

z  •«•  hn  9k  r'« 

or  4  4  •  •  • 

SC  ^  "O 


z  z  z  z  z  z 

3  “ 

<t  <E  <r  <x  <e' 


<r 

Z  *^4  ^ 

CO  z  -I  z 


z  z  o  z 


CM  CM  CM  CM 
9k  9k  91  9k 
I  I  I  I 
UJ  Z  Ul  UJ 
V  'O  z  CM 
in  ^  z  u'a 
in  ^  O'  O' 

f".  CM  oO 
4V  9k  O'  Z 
O'  ^  m  9k 


^  hO  Z  •ih  p-> 

z 

z  CM  ^  CM  PO  CM 
z  9k  9k  qb  9k  <aa 
o.  I  I  I  I  I 
Z  Ul  z  Ul  LU  Ul 

z  z  ro  z  -o 

u.  h'*  z  in  ho  z 

X  hO  ro  ho  ^  CM 

Z  z  CM  CM  Z  CM 

^  in  c>  z  •*• 

z  ^  in  hn  9k  -o 

Z  O'  'O  CM  9k  —4 

or  ■  •  •  •  • 

Lu  «-4  CM  CM  to  •f 


<z 
»— « 
z> 
z 
z 


CM  CN 
Z  9k  9k 
1  I  I 
UJ  z  z 
O'  :P  z 
Z  CM  O' 
CM  PO  in 


PO  CM 

z  z 

UJ  Ul 

JS*  00 


•cr  ^  z  z  «r 


CM  PO  ira 

z  ^  in 

O' 


in  f'N 

z  z 


cc  —t  CM  CM  m  hO 
z 

Z  Z  z  z  z  z 

3  ^  ^  ^  ^  ^ 

f-*  ^  <r  «r  c  ^ 


z  re  --J  z  -u 


z  ho 

*  z 


X  z  Ck  o  z  o 


I 


DIF  HI  X,Y,S  2.924B2B6E-02  1.02262468-02  3.9474554E-02  DIF  HI  X,Y,S  4.0122750E-03  3.76345B7E-03  7.7757179E-03 
DIF  LI  X,Y,S  3.9052676E-02  1.49771I1E-02  5.4029696E-02  DIF  LI  X,Y,S  3.9631501E-03  3.4792100E-03  7.4423687E-03 
DIFH0X,Y,S  3.4126863E-82  1.1814054E-02  4.594095BE-02  DIF  H0  X,Y,S  4.24B0240E-03  5. 1009869E-03  9.3490062E-03 
DIF  L0  X,Y,S  6.5316333E-03  4.2333077E-03  1.0864952E-02  DIF  L0  X,Y,S  4,33094618-03  5.2353991E-03  9.5663415E-03 
DIF  H3  X,Y,S  4.7165561E-02  3.02708828-02  7.74365228-02  DIF  H3  X,Y,S  5.49554828-03  6.11970858-03  I. 16152768-02 


PARAMETERS  .  PARAMETERS 

3.750f001E-02  64.00000  ■  56789.00  1.200000  3.7500001E-02  64.00000  56789.00 
60.00000  8.0000000Eif0  45.00000  64.00000  60.00000  0.0000000E400  45.00000  64.00000 
53.20000  90.00000  53.20000  9.885000  53.20000  135.0000  53.20000  9.885000 
1.337000  1.0200000E-09  99999.00  99999.00  1.337000  1.0200000E-09  99999.00  99999.00 


Vk  h«.  csi  mr 

CN  ^  to 

>0  (M  OD  ^  CSk 

CO  ^  cai 

•  •  •  •  cs 

«>  to  O' 

^  ^  O' 

uo 


10  10  to  to  CM 

Vk  tSk  ^  9k  ^ 

I  I  I  I  t 

LU  Ui  Ui  LU  Ui 

CM  ^  to  O'  to 

'O  t'k  9k  oa  u~3 

9k  >0  9*  ^  00 

9k  m  oo  CM  *xi 

9k  ^  0»  CM  to 

9k  —•  O'  CM  CM 

to  CM  to  91 


ocf^'Ototair'. 
CO  CM  to  CO  10  *0 

UO  00  t's.  iSk 

cj  *0  iTj  C"  O' 

•x  CO  in  10  ir>  to 

Uiu  CM  in  ^o  ^  to 

to  ro  in  to 

CO  «  V  •  •  ■ 

sc  9k  CEk  91  kSk  9k 

^  0=  ££  oc  oc 

CJ  CO  CO  o  O 

CJ  CJ  CO  CO  c_> 

>-  o:  «x  <x 

<c  U.  u.  u.  u.  u. 

0=  aT  sT  aT  rtT  nT 

<C  CO  CO  CO  CO  CO 

*— <  »— «  •— f  »— •  I— t 

uj  a:  sc  =c  sc  a: 

CO  «« 

t—  9»  Clk  9k  «3k  9k 

SC  9k  9k  <3^  <3^ 

CO  —  — 

<r  9k  kSi  to 

ac  a:  ^  a:  ^  a: 


r''C0  00  '~i"*- 
^  t'' 

to  ^  kSk  9k 

o*  ksk  CM  CM  r'» 

•  •  •  •  to 

10  ^  CM  • 

00  ^  O'  to 
CM  CM  *'4  O' 


to  to  to  hO  to 

9k  9k 


I 


t 


LU  UJ  Ixl  txl  UJ 

t"  -sO  ^  9k  *0 

00  'O  t'^  9k 

•o  to  O'  'O  10 

CM  CO  O'  'O  :£ 

OO  «-«  9k  *-t  GO 

00  00  ^ 

— •  9k  in  ^ 

•  •  •  •  • 

CM  CM  to  ^  -sO 


cc  OQ  00  r*>> 

a  ^  ^  9k  'O  9k 

00  CO  oo  r'.  9k 

00  ^  O'  O' 

<r  O'  rs.  ^  r,*  CO 

uu  to  O'  9k  to 

CM  CM  to  in  CM 

CO  •  •  «  •  • 

Z  9k  kSk  9k  9)  (Sk 

— I  _ 

<r  oc  ct;  QC  ne  cc 
CJ  CO  o  C3  o  o 
cn»—t'->—t—K- 
C-k  CJ  CO  CO  CJ 

>•  <j:  <c  <E  <c  <x 

<2:  U.  LU  u.  u.  LU 

CC 

oc  a:  s  3=  =c  a= 

<£  CO  CD  to  CO  CO 
LU  z  z  a:  S  a: 


9k  9k  9k  CSk  9k 

Z  Oa*  t1^  kl^ 

2  55  91  iX2 

ac  a;  ^  z  ^  z 


CM 

CM 

CM 

CM 

9k 

9i 

9k 

Z 

til 

CM 

Z 

Z 

z 

in 

fxx 

Cx. 

CM 

to 

in 

tx-x 

CM 

fXx. 

CM 

to 

xO 

CO 

CM 

rxx 

CO 

ira 

to 

CM 

fxx. 

Z 

tn 

to 

CM 

ira 

o* 

*»»• 

O' 

9k 

in 

Ox 

O' 

9k 

Z 

Pxx 

xO 

CM 

ira 

in 

xO 

txx 

xO 

CM 

in 

m 

xO 

rxx 

tn 

in 

xO 

fx-x 

to 

to 

xO 

fXX 

to 

to 

O' 

txx 

CM 

9k 

««»• 

rxx 

CM 

xQ 

91 

CM 

x-4 

4^ 

'-1 

XX-I 

CM 

4-4 

4-^ 

4-^ 

»x4 

x^ 

to 

xO 

z 

9k 

9k 

xO 

9K 

tSk 

• 

9» 

9k 

• 

9l 

<E  CM 

Crr 

CM 

CM  CM  CM  CM  CM  CM 
9k  kai  9k  kSi  9k  9k 


I 


I 


I 


LU  UJ  LU  LU  M  LU 

<C  00  O'  CM  !"»  O'  r'.» 

Q£  ITJ  to  CM  f"*.  00  9k 

t—  O'  — ♦  m  9k  CM 

CJ  *'«  00  9*  ^  9k  to 

LU  '”•  00  to  >*0  "4  m 

^  in  CM  00  CD 

to  to  m  “Mk  ^  9k  in 

•  ••••• 
QC  CM  *0  »0  ^  t'' 
LU 

z 

CO  CM  CM  CM  CM  CM  CM 

Ou  9k  9k  9k  9i  9k  9k 


CM  CM  CM  CM  CM  CM 
9l  9l  9k  9k  9k  9k 
I  I  I  I  I  I 

CU  LU  LU  LU  LU  LU 

'O  CO  ^  CM  9k 

to  in  ^  ^  to 


LU  UJ  LU  LU 
CO  oO  CM  xO 


CM  CM  CM  CM  CM 


UI  LU  UU  LU  LU 

CD  to  O’.  CO 

CM  x-i  *0  O 
9k  f'x  OD  00  9k 
CO  m  9k  00  00 
CT'  9k  to  -P-*  00 
>0  ksik  'O  t'.p  00 

— ^  to  CM  m 

•  •  •  «  • 
CM  CM  CM  to 

to  to  wM  CM 
9k  9k  9k  9k  9k 
I  I  I  I  I 

LU  LU  LU  LU  LU 

xo  C"  m  O' 

-<0  O'  'Q 


I 


I 


a  -o 
cxz  — * 
lu  to 
uo 
LU  to 
CJ  CM 
Z  O' 


to  O'  *-4  in 

in  to  CM  O' 

rxx  CM  9k  9k 

00  ^  rx.  I/O  9k 

91  4cr  oo  in 

9k  t"  xo  to  CM 

O'  O'  uo  to  CO 

•— 4  to  ^  ^  xO  "O  x<3 

oc 

<£ 

>  cn  C/a  CO  cn  cn  cn 
CO  CJ  cJT  CJ  LJ*  CJ  cS 

LU  -H 

I—  <r  o:  <x  <c  <x  <x 


9k  — 4  9k  9k  ro 

cn  z  — I  z  -J  z 

OC  Z  CO  CkC  Z  Z 
<0  <r  <s  <r  <1:  <x 
=>  >  =>  =►  r> 


Z 

CO 

rxx 

0- 

CM 

MX| 

9k 

Ox 

9^ 

Ox 

4r 

9k 

CM 

z 

z 

m 

erx 

in 

in 

xO 

z 

in 

in 

xO 

•ic 

xD 

Z 

Z 

O' 

CM 

to 

CJx 

9k 

tn 

in 

z 

ox 

z 

to 

Ox 

CM 

r'x 

CM 

CM 

CM 

9k 

Ox 

in 

z 

in 

z 

9k 

tn 

O' 

CM 

fXx. 

to 

CM 

in 

xO 

4** 

CM 

ao 

r'x 

z 

4r 

4C- 

CM 

z 

9- 

in 

z 

to 

z 

in 

in 

xO 

in 

m 

z 

XP.4 

m 

CM 

O' 

0^ 

xxxl 

in 

CM 

CM 

CM 

CM 

CM 

as 

CO 

to 

to 

10 

CM 

CM 

CM 

CM 

to 

CM 

9k 

9k 

9) 

9k 

9k 

9k 

91 

z 

9k 

91 

9k 

Z 

z 

Z 

z 

Z 

z 

z 

Z 

Z 

Z 

ill 

z 

LU 

LU 

Z 

LU 

z 

LU 

9k 

m 

to 

in 

to 

CO 

xO 

m 

m 

xO 

z 

xO 

tn 

9k 

CO 

erx 

> 

•xO 

z 

to 

u"a 

O' 

O' 

O' 

O' 

to 

9k 

CO 

^cr 

z 

10 

CO 

z 

z 

O' 

to 

CM 

m 

z 

CT' 

m 

rxx 

xO 

xO 

O' 

xO 

z 

O' 

r'x 

xQ 

to 

Cxx 

r'x 

9k 

u*a 

4*- 

O' 

•4r 

CM 

to 

CM 

O' 

4r 

Ox 

-0 

in 

xO 

Z 

xO 

xO 

xO 

O' 

tn 

x'4 

z 

91 

x-4 

0* 

z 

CM 

xO 

CM 

9k 

to 

CO 

CO 

xO 

z 

xO 

•-4 

xO 

z 

«!»• 

CM 

to 

9k 

z 

CM 

OtZ 

• 

• 

• 

• 

xO 

xO 

in 

4^ 

tn 

<c 

f" 

CO 

z 

xO 

4-1 

m  t 

4-4 

xO 

CM 

ca 

CO 

cn 

tn 

tn 

cn 

tn 

z 

cn 

z 

z 

z 

z 

z 

Z 

z 

Z 

z 

CJO 

LU 


>->'>•>•>->• 
X  X  X  X  X  >< 
9k  9k  to 


9k 

cn 


z  z  z  z  z 
o:  <x  oc  z  <x 
=>=>>>=> 


z 

<x 


CO  CJ  CJ  CJ  CJ  CU 
LU  ^ 

^  o:  <x  <r  <x  <r 

<3: 

z  <ixxi  *x4  ^  9k  ro 
CD  Z  -j  Z  —I  Z 


•'M  CO  (=1  CO  CO  ca 


X  >r  X  >-r 


-'4  9k  9k  to 
z  ^  z  ^  z 


I  I 
LU  LU 

<z  z  in 
z  io  in 

h-  —4  in 
CJ  •'*  r>. 
LU  — •  ^ 
z  ti^  ^ 
to  to  z 


Z  CM 
LU 

ac 

a  CM 
Z  9k 
t 

Z  LU 
C3  -O 
Z 

LU  to 

m 

|*J  kO 
tu  CM 
Z  O' 

S  r.4 

z 

S  c/^ 

Q  eS 

LU  «"> 

t—  <x 

CC 

Z  9k 

z  z 


z 


CM 

CM 

CM 

CM 

CM 

CM 

CM 

CM 

CM 

CM 

CM 

CM 

CM 

9i 

1 

9k 

1 

z 

z 

z 

Z 

Z 

z 

Z 

Z 

z 

z 

z 

Z 

Z 

z 

LU 

z 

LU 

Z 

z 

z 

Z 

z 

z 

1 

z 

rxx 

xO 

xO 

m 

m 

t" 

fx.. 

xO 

xO 

in 

4«» 

in 

O' 

CM 

xO 

in 

O' 

CM 

”2 

to 

4** 

9» 

CM 

z 

to 

•4^ 

4-t 

z 

to 

4-4 

z 

O' 

z 

to 

z 

O' 

z 

9k 

CM 

to 

xO 

in 

z 

z 

CM 

to 

xO 

9* 

CM 

tn 

to 

z 

9* 

CM 

m 

to 

z 

to 

to 

tx. 

O' 

xO 

to 

to 

r'x 

O' 

xO 

9* 

to 

to 

m 

xO 

4r 

to 

to 

tn 

to 

9k 

m 

O' 

4»' 

to 

to 

z 

m 

O' 

4<- 

CM 

xO 

4^ 

to 

•wr 

CM 

xO 

4<- 

to 

xO 

4-4 

xO 

z 

r** 

O' 

xO 

44« 

xO 

z 

xO 

to 

O' 

rx. 

xO 

ro 

O' 

rx 

•i•4 

O' 

4*^ 

CM 

4-< 

4-4 

O' 

4-* 

to 

Z 

z 

CM 

CM 

to 

z 

z 

CM 

CM 

• 

• 

• 

91 

9k 

r'x 

9k 

xO 

z 

z 

z 

rxx 

z 

<r 

z 

in 

to 

CM 

in 

m 

to 

CM 

4-4 

tn 

CM 

CM 

CM 

Cxi 

CM 

CM 

CM 

CM 

CM 

CM 

t— 

z 

CM 

CM 

CM 

to 

CM 

CM 

CM 

to 

to 

CM 

Z 

1 

9b 

9k 

1 

9k 

9k 

Z 

z 

Z 

z 

z 

z 

z 

z 

z 

z 

Z 

z 

z 

z 

z 

z 

z 

LU 

Z 

Z 

Z 

Z 

z 

UJ 

z 

LU 

z 

z 

z 

z 

1 

z 

z 

1 

z 

z 

I 

z 

I 

z 

t 

z 

4[C 

CM 

O' 

CM 

xO 

z 

xO 

'—4 

to 

to 

z 

O' 

in 

tn 

CM 

rx. 

CM 

CM 

O' 

O' 

O' 

9k 

to 

z 

in 

r^ 

to 

z 

O' 

z 

•-# 

O' 

z 

CM 

to 

91 

xO 

CM 

Z 

CM 

O' 

to 

in 

>44 

xO 

z 

rx. 

to 

z 

O' 

M* 

Z 

z 

z 

“O 

4-i^ 

to 

0- 

4—4 

to 

in 

to 

z 

4r 

in 

to 

m 

z 

4«' 

O' 

*43 

'O 

4tf* 

in 

to 

rx^ 

xO 

CM 

to 

4*' 

to 

z 

z 

CO 

rx 

"O 

xO 

CM 

z 

9k 

O' 

to 

rx* 

r'x 

z 

4^ 

ac 

z 

in 

r'x 

^“4 

xO 

xU 

Z 

to 

•-4 

in 

4^ 

CM 

O' 

ir^ 

z 

4-4 

CM 

z 

ca 

O' 

CM 

xO 

z 

z 

rx> 

• 

z 

hx* 

in 

4(f 

Z 

to 

a* 

z 

in 

to 

Z 

z 

CM 

4x4 

xO 

CM 

CM 

CM 

0^ 

in 

CM 

9k  9k 

I 


I 


LU  LU  UI 

o  tea  r'«  O'  xo 

CM  9k  9k  O'  z 

>0  9k  O'  CM 

9t  I/O  xO  9k  9k 

tn  xTt  x>^  r>x.. 

9k  <««*  in  xO  91 

^  z  —• 


CM 

9k 

t 


CM  CM  CM  CM 
Z  9k  9k  9l 
I  I  I  I 

UJ  LU  UJ  LU 
CM  O'  CM  z  9) 
f'xxxOO'inC'* 

in  ira  to  CM  — < 
^  ^  ^  10 

4if*  in  CM  id  9» 
to  r*  9k  z 


9k  O'  tra  to  9k 

z  z  z  z  z 

c_r  cj"  cj*  c-T  cjr 

<t  <X  <c  ^  <c 

z  9l  to 
Z  ^  Z  -i  z 

OC  ^  OC  OC  CXi 

<S  <X  <3;  <x 


to  O'  /xx  xO  ^  9k 

^  cn  cn  cn  tn  Oi 

X  >T  ><  X  ><  *< 
z  «X4  •'4  Z  9k  to 

z  z  — i  z  z 

^  ce:  cx:  oc  cx:  cx: 
<c  <x  o;  <x:  <];  <c 
>  >  2>  >  => 


o  CM  CM  to  ro  CM 
»-xi  9k  z  9k  9k  9k 
t—  I  I  I  I  I 

CC  Z  z  Z  LU  Z 

4— 4  to  rx.  ^  ^ 

>  rx.  z  O'  in 

Z  xO  CM  z  xO  ^ 

S  IS 

z  xO  z  ^  ^  ori 

z  z  z  z  CM  UO 

Z  4  •  •  •  • 

<£  CM  4XX|  Z  xO  CM 

z 

z 

cn  tn  cn  <n  cn  cn 

a  cS  cS  cS  cj  cS 

UJ 

<r  ^  cc  <r  <z 

z 

z  «  z  to 

z  a;  ^  z  z  z 

z 

t-  Z  Z  Z  L-  Z 

Z  *>-4  »-4 

|»4  O  o  z  z  z 


CM  ^  CM  to  CM 
9»  91  9k  9k 


I 


I 


Z  Z  Z  Z  Z 

O'  ira  z  to  m 

CM  C''  CM  to  CM 

^  Cx*  xO  I/O  z 

o  O'  xO  C"  z 

ii"S  ^  O’'  xO 

^  ^  10  z 

ira  fxx  ^  O'  9j 

•  •  •  •  • 

CM  ^  «-4  xO  to 


cn  cn  cn  cn  cn 

X  >r  >r  ;fcr 

X  X  >-r  X  X 

4X4  9k  Z  to 

z  z  Z  z  z 
z  z  u.  z  z 

•-•I  •-'4  I'M 

z  z  z  z  z 


A-43 


PARAMETERS  PARAMETERS 

l.2§im  3.75ffll01E-02  6^.mie  5&789.0d  1.200000  3.7S00001E-02  64.00000  56789.00 
60.00000  0.0I00000E^00  45.00000  64.00000  60.00000  0.0I00000E+00  45.00000  64.00000 
53.20001  180.1008  53.20800  9.8850S0  53.20000  0.0008000E+00  53.20008  9.885000 
1.337160  1.02000SSE-89  99999.00  99999.00  1.337000  1.0208000E-09  99999.00  99999.00 


*0 

fO 

hO 

oo 

r** 

m 

m 

oo 

fO 

lib 

P'- 

CN 

CN 

CN 

CN 

CN 

CN 

CN 

CN 

CN 

m 

O' 

m 

Ob 

Ob 

Ob 

SI 

VI 

SI 

SI 

# 

xr> 

tn 

Ui 

LU 

LU 

LU 

LU 

LU 

LU 

LU 

LU 

ro 

P-O 

fO 

ITJ 

O' 

'O 

oo 

tn 

'O 

in 

O' 

-O 

OO 

ro 

"O 

in 

ro 

P'H 

CN 

P" 

CN 

00 

K> 

CN 

CO 

f". 

CN 

C30 

ro 

CN 

CD 

p'' 

SI 

CN 

’b’ 

S’ 

uo 

•o 

t'^ 

CN 

CJ' 

OQ 

in 

f"- 

CN 

CP' 

OP 

O' 

CN 

S3 

'O 

Sl 

oo 

CN 

oo 

CN 

'O 

CO 

CN 

CD 

CD 

SI 

SI 

O' 

CN| 

CN| 

cs 

CN 

CN 

Ob 

■or 

<'0 

SI 

CN 

SI 

■>0 

Ob 

CM 

O' 

'O 

O' 

CN 

Qb 

cai 

qfi 

r'* 

SI 

SI 

CN 

I'' 

SI 

*«r 

SI 

CN 

Ob 

CN 

in 

SI 

1 

1 

1 

CN 

O' 

^14 

CN 

O' 

s-4 

^4 

r«» 

p"- 

O' 

SI 

•«r 

LU 

t  If 

1x1 

LU 

Ul 

• 

• 

4 

• 

4 

• 

• 

OO 

t*^ 

r*'- 

SI 

o^ 

VI 

SI 

Vl 

-D 

SI 

O' 

Ob 

Ob 

SI 

s»4 

CN 

CN 

in 

OS 

o* 

O' 

IS 

CN 

0— 

CO 

oo 

m 

CD 

CN 

CN 

CN 

CN 

<N 

CN 

CN 

CN 

CN 

CN 

CN 

CN 

u 

ro 

ro 

ro 

CN 

CN 

CN0 

CNI 

«> 

<S0 

SI 

SI 

SI 

S) 

Si 

Ob 

SI 

Si 

SI 

Ob 

SI 

LU 

S3 

SI 

SI 

SI 

oo 

LU 

LU 

LU 

LU 

lU 

LU 

LU 

til 

LU 

LU 

LU 

LU 

cn 

LU 

LU 

LU 

LU 

LU 

<c 

OO 

SI 

tn 

SI 

OO 

CN 

SI 

GO 

OO 

P'. 

O' 

PO 

o* 

•>0 

os 

in 

SI 

CT' 

•o 

OO 

tn 

in 

'O 

O' 

S’ 

Lv. 

O' 

ro 

oo 

CN 

0— 

in 

CN 

I'D 

ro 

m 

CN 

tn 

CN 

OO 

in 

CN 

SI 

p'' 

ro 

P'« 

SI 

CJ 

CN 

CN 

m 

tn 

O' 

m 

P'- 

d 

PO 

oo 

CN 

LU 

O' 

Ob 

•e 

>0 

O' 

r'. 

f" 

P's 

tn 

O' 

CN 

Sl 

SI 

in 

o. 

m 

O 

in 

CD 

O' 

tn 

'D 

CO 

>0 

CO 

'O 

ac 

CD 

*0 

tn 

'O 

CD 

m 

•«r 

tn 

-O 

CO 

s-4 

ro 

CN 

'O 

OO 

d 

in 

ro 

in 

Sl 

CN 

cn 

• 

• 

os 

« 

• 

cc 

oo 

tn 

f'- 

OS 

CN 

«r 

"ff 

s* 

m 

tn 

tn 

ro 

ro 

ro 

•"O’ 

u. 

00 

oo 

O' 

a 

tn 

un 

UD 

LU 

►— 

U') 

rs, 

O- 

ac 

oo 

in 

oo 

o* 

d 

CN 

CN 

CN 

CN 

CN 

CN 

CN 

CN 

CN 

CN 

CN 

CN 

d 

fO 

to 

to 

CN 

C'J 

<s 

CO 

O' 

t'* 

o. 

IS 

Ob 

SI 

SI 

Ob 

SI 

Ob 

SI 

Ob 

Ob 

SI 

SI 

*-« 

Ob 

SI 

Sl 

SI 

SI 

u. 

tn 

in 

1 

1 

1 

1 

1 

1 

1 

0— 

1 

1 

1 

1 

1 

# 

ac 

LU 

LU 

LU 

LU 

LU 

LU 

LU 

LU 

LU 

LU 

LU 

LU 

<c 

UJ 

LU 

LU 

LU 

LU 

cn 

d 

oO 

CN 

'O 

CO 

CN 

CN 

SI 

in 

O' 

OO 

SI 

S’ 

p'. 

'O 

O' 

tn 

SI 

os 

in 

'O 

'O 

OO 

tn 

1''. 

o- 

CN 

CN 

a> 

b’a 

P''. 

CN 

p"^ 

'■O 

LU 

K> 

in 

oo 

tn 

O' 

SI 

CN 

tn 

r" 

OO 

ro 

LU 

aa 

CN 

CD 

oo 

SI 

UD 

■D 

SI 

SI 

'Q 

CN 

m 

f'' 

CN 

SI 

d 

m 

ro 

00 

p'' 

CO 

<s 

cc 

os 

os 

os 

os 

LU 

fO 

oo 

f"- 

tn 

O' 

p'* 

SI 

*0 

->0 

O' 

O'! 

O' 

oo 

CJ 

o 

CD 

o 

o 

d 

CJ 

CN 

O' 

f" 

O' 

in 

tn 

CN 

in 

O' 

SI 

in 

d 

O' 

O' 

CN 

ro 

CQ 

»— 

0— 

>— 

0— 

0— 

ae 

O' 

'O 

in 

O' 

I'' 

1''. 

O' 

CN 

p'' 

LU 

O' 

*0 

Sl 

u 

CJ 

CD 

CJ 

CJ 

OS 

• 

* 

>- 

<E 

<£ 

fO 

m 

m 

in 

"O 

•sO 

tn 

-n 

'O 

--o 

r" 

p'. 

<c 

a> 

oo 

O' 

<c 

u. 

u. 

u. 

U. 

LC 

os 

ra 

oc 

<c 

Ol 

oc 

ac 

cc* 

ac 

ac 

DS 

a> 

CD 

cn 

cn 

cn 

cn 

cn 

cn 

cn 

cn 

cn 

cn 

cn 

cn 

cia 

cn 

CQ 

cn 

cn 

CD 

CD 

CD 

CD 

CO 

d 

CJ 

CJ 

CJ 

(LJ 

CJ 

CJ 

>- 

>- 

>- 

>- 

>- 

d 

CJ 

CJ 

CJ 

CJ 

CJ 

LU 

rc 

ac 

ac 

ac 

LU 

LU 

c:i 

0— 

<r. 

•a: 

<£* 

o: 

<x 

<r 

X 

X 

X 

X 

X 

X 

0— 

<x 

<£ 

<c 

<c 

cX 

Z3 

<c 

<X 

IS 

Ob 

Ob 

Ob 

OS 

IS 

SI 

SI 

tn 

SI 

SI 

SI 

ro 

OS 

Si 

SI 

ro 

CD 

cn 

aa 

u 

aa 

u 

ac 

cn 

ac 

— i 

aa 

-J 

ac 

CO 

ac 

ac 

ac 

jjjU 

0^ 

Ob 

oT 

CO 

LU 

LU 

CD 

0— 

ocr 

os 

OS 

oa 

OS 

os 

os 

os 

os 

os 

cas 

os 

0— 

U. 

LU 

Lu 

Urn 

Lu 

<ac 

<3) 

CD 

0O 

ae 

<i: 

<c 

<c 

<E 

<£ 

<3: 

<3: 

<3: 

<c 

ao 

ac 

:e 

ac 

-J 

ac 

a> 

a> 

a> 

> 

a> 

a> 

a> 

o 

a> 

a> 

a> 

d 

d 

d 

d 

d 

CD 

‘*-4 

CN 

in 

SI 

O' 

P'* 

CD 

CN 

Sl 

ro 

in 

■<0 

ro 

p'' 

tn 

to 

CN 

CN 

CN 

CN 

CN 

CN 

CN 

O' 

SI 

SI 

Sl 

SI 

SI 

Sl 

Lb 

00 

•<0 

p'. 

1 

1 

t 

1 

t 

1 

in 

oo 

m 

LU 

tu 

LU 

LU 

LU 

LU 

LU 

•b* 

in 

O' 

-o 

*tb 

rxx 

O' 

m 

O' 

xO 

SI 

pv 

O' 

CJx 

CP- 

PT 

xO 

SI 

CN 

P'. 

p" 

in 

CN 

pxx 

in 

*X4 

SI 

CN 

nr 

tn 

Sl 

tn 

m 

m 

UQ 

Pv 

SI 

m 

m 

in 

oo 

'D 

tn 

Pv 

ro 

UP 

p'. 

Sl 

xO 

xD 

Pv. 

Sl 

*X4 

xO 

SI 

O' 

•JO 

O' 

ro 

ro 

to 

ro 

CN 

n- 

O' 

CN 

*0- 

xO 

•tf 

O- 

CN 

N’ 

fv. 

xO 

xO 

px. 

ro 

Sl 

SI 

SI 

Sl 

SI 

f"- 

SI 

SI 

tn 

P'«. 

in 

Pv 

Sl 

SI 

ro 

PVi 

m 

SI 

O' 

tn 

Pv 

xO 

1 

1 

1 

1 

CN 

XXi4 

CN 

«<x4 

oo 

SI 

O' 

CD 

LU 

LU 

LU 

LU 

LU 

4 

a 

4 

ro 

in 

'O 

-o 

'D 

SI 

SI 

CD 

SI 

S3 

xO 

SI 

03 

S3 

SI 

Sl 

.  ^ 

CN 

0-5 

nr 

lO 

Sl 

'O 

CN 

p’-. 

to 

Da 

CO 

P'» 

CP' 

CN 

CO 

Sl 

'O 

CN 

CN 

CN 

CN 

CN 

CN 

CN 

OJ 

TN 

CN 

CN 

CN 

d 

C’l 

ro 

CN 

C'J 

CN 

O' 

P'* 

ro 

oo 

SI 

SI 

SI 

Sl 

Sl 

SI 

CSI 

Sl 

SI 

Ob 

SI 

SI 

tu 

SI 

LSI 

SI 

SI 

SI 

O' 

ro 

1 

1 

1 

1 

1 

1 

1 

I 

1 

a. 

1 

t 

1 

1 

CN 

o 

CN 

to 

LU 

LU 

LU 

txf 

LU 

LU 

LU 

UJ 

LU 

LU 

LU 

LU 

cn 

LU 

OJ 

LU 

UJ 

LU 

• 

<x 

CO 

Sl 

O' 

xO 

in 

SI 

OO 

m 

O' 

tn 

CN 

PO 

nr 

m 

tn 

ro 

ro 

DC 

in 

•«r 

P'- 

xO 

tn 

ro 

CN 

LU 

GO 

CD 

CN 

in 

CN 

CN 

ro 

CO 

in 

CN 

O' 

O' 

CN 

UQ 

in 

nr 

oo 

Pv 

Sl 

xO 

d 

*w4 

•4r 

SI 

CO 

Sl 

ro 

•33 

00 

SI 

-o 

d 

xO 

Pv 

fv. 

O' 

in 

LU 

r'' 

•er 

tn 

SI 

Pv. 

•If 

nr 

tn 

^•4 

tn 

Pv 

PIT 

xO 

O. 

in 

m 

O' 

ro 

SI 

ro 

in 

nr 

Sl 

OO 

x: 

*<■4 

Ob 

uo 

xO 

cn 

ro 

oo 

in 

O' 

oo 

4-4 

CN 

"O 

in 

SI 

d 

Sl 

in 

nr 

Sl 

cn 

• 

DC 

• 

oa 

to 

'O 

Sl 

SI 

in 

DC 

CN 

’tr 

tn 

f". 

rv. 

ro 

ro 

ro 

nr 

JO 

xO 

LU 

O' 

CN 

CN 

d 

cu 

ua 

oo 

oo 

CP* 

LU 

0— 

SI 

ro 

ro 

as 

DC 

CJ 

ro 

'O 

-b* 

00 

d 

CN 

CN 

CN 

CN 

CN 

CN 

CN 

CN 

CN 

CN 

CN 

d 

CN 

PO 

CN 

CN 

CN 

<s 

CN 

in 

P'^ 

in 

a. 

Sl 

SI 

SI 

SI 

Sl 

Sl 

Sl 

SI 

Sl 

SI 

SI 

SI 

Sl 

SI 

Ob 

SI 

LU 

CN 

s- 

CN 

in 

tn 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

0— 

1 

1 

1 

1 

1 

tn 

oO 

S’ 

ac 

LU 

LU 

LU 

tu 

LU 

LU 

LU 

LU 

LU 

LU 

LU 

<c 

LU 

LU 

LU 

LU 

LU 

CD 

d 

"D 

O' 

p'' 

O' 

xD 

SI 

Pv 

O' 

O' 

Pv 

|xM 

PO 

Pv 

to 

in 

xO 

X 

SI 

Qb 

<s 

SI 

Sl 

DC 

CD 

P^ 

O' 

CN 

p" 

xO 

SI 

OO 

per 

a> 

O' 

CN 

Pv 

LU 

ro 

xD 

ro 

in 

tn 

CN 

CN 

oo 

pv. 

*o 

CN 

nr 

tu 

lO 

xO 

OO 

pv 

xD 

m 

SI 

'O 

'O 

xD 

ro 

ro 

00 

in 

4»4 

tn 

d 

nr 

oo 

lO 

pv. 

ro 

<c 

cc 

oa 

ac 

00 

CO 

LU 

ro 

S3 

sO 

O' 

in 

Pv 

ro 

in 

CN 

PO 

O' 

tn 

O' 

OO 

in 

d 

d 

d 

d 

d 

d 

d 

CN 

ro 

«x4 

tv. 

xO 

ro 

O' 

CN 

O' 

^■4 

OO 

d 

oo 

in 

PV" 

O' 

ii“j 

PXx 

•44 

tra 

LU 

SI 

oo 

m 

m 

Pv 

CJ 

CJ 

CJ 

d 

d 

DC 

>- 

<r 

<c 

<x 

<c 

<c 

►-4 

ro 

*jO 

tn 

f”' 

O' 

CD 

ro 

fv. 

Pv 

oo 

SI 

O' 

<r 

CP* 

CN 

LU 

tu 

LU 

Lu 

tu 

DC 

d 

oa 

<X 

C2f 

or 

ac 

acT 

ac 

dT 

ac 

cn 

cn 

CQ 

cn 

cn 

cn 

cn 

cn 

cn 

CQ 

cn 

cn 

cn 

cn 

cn 

cn 

cn 

cn 

<x 

CD 

CD 

CD 

CD 

CO 

•— 4 

d 

d 

d 

d 

d 

d 

d 

>- 

>- 

>- 

>x 

>* 

>- 

d 

d 

d 

d 

d 

LU 

ac 

ac 

X 

ac 

32 

UJ 

LU 

d 

w> 

Sb 

>-■ 

<c 

<£ 

<z 

<£ 

<c 

<£ 

X 

X 

X 

X 

X 

X 

►— 

<x 

<x 

<r 

<z 

<£ 

aa 

<x 

<x 

0— 

SI 

ctl 

ab 

Sl 

Sl 

DC 

SI 

SI 

SI 

ro 

Sl 

»«4 

Sl 

SI 

tn 

Da 

4»-» 

4X^ 

SI 

Sl 

ro 

CD 

cn 

x 

d 

ac 

d 

ac 

cn 

ac 

d 

aa 

d 

a: 

CD 

ac 

d 

ac 

d 

ac 

X 

SI 

csT 

Sl 

<3^ 

LU 

LU 

CD 

w 

0— 

DC 

ac 

oo 

oc 

Da 

oo 

oa 

oa 

oa 

DC 

oa 

ac 

0— 

u. 

u. 

u. 

LU 

LU 

<r 

SI 

SI 

ro 

3E 

<x 

<x 

<x 

<x 

<x 

<x 

<x 

<x 

<C 

<£ 

<x 

X 

ac 

ac 

d 

s 

d 

ac 

0X4 

ap 

a> 

a> 

O’ 

a> 

:> 

a> 

a> 

> 

•-4 

d 

d 

d 

d 

d 

A-44 


< 


DIF  HI  X,Y,S  1.55B1101E-02  5.4297205E-03  2.1010809E-02  DIF  HI  X,Y,S  1.2516121E-02  4.9827583E-03  1.7498905E-02 
DIF  LI  X,Y,S  1.3694853E-02  5.274B160E-03  1.8969649E-02  DIF  LI  X,Y,S  1.2093929E-02  4.9402853E-03  1.7034223E-02 
DIF  H0  X,Y,S  2.3082923E-02  7.4886112E-03  3.057I524E-62  DIF  H0  X,Y,S  1.3980604E-02  5.2794069E-03  1.9260047E-02 
DIF  L0  X,Y,S  3.6516260E-02  1.322056BE-02  4.9736746E-02  DIF  L0  X,Y,S  1.4995794E-02  5.5947881E-03  2.0590642E-02 
DIF  H3  X,Y,S  2.4B7i556E-02  1.3748758E-02  3.8619310E-02  DIF  H3  X,Y,S  1.6545562E-02  7.4B35196E-03  2.4029057E-02 


NO 

—.4 

Z 

h^ 

z 

fN. 

z 

ON 

in 

nO 

o* 

hN 

m 

CJN 

hN. 

z 

nO 

O' 

in 

CN 

CN 

CN 

-'p* 

z 

hN. 

nO 

z 

z 

Z 

1 

1 

1 

VI 

z 

z 

z 

in 

•p- 

m 

z 

z 

z 

LU 

Vt 

z 

z 

CN 

CN 

CN 

CN 

CN 

hO 

z 

z 

z 

in 

in 

O' 

z 

in 

O' 

in 

nO 

O' 

z 

z 

z 

nO 

in 

hN. 

z 

O' 

CN 

CN 

CN 

CN 

CN 

hN 

•p- 

nO 

On 

Z 

Z 

z 

Z 

Z 

hN 

CN 

z 

in 

nO 

ON 

o» 

t 

1 

1 

t 

( 

CN 

•p* 

UJ 

LU 

LU 

z 

z 

ca 

C7N 

CN 

hO 

hN. 

nO 

in 

in 

ro 

CN 

■p- 

in 

z 

hN 

z 

CN 

z 

z 

CN 

rNN 

CN 

CN 

CN 

z 

z 

Z 

nO 

Z 

z 

CO 

hO 

CO 

hN, 

1 

1 

i3k 

z 

z 

z 

CN 

CN 

O' 

z 

z 

UJ 

pp 

z 

z 

<x 

z 

CN 

hN 

z 

z 

z 

CN 

CN 

CN 

CN 

CN 

z 

nO 

M" 

hn 

pp 

z 

z 

O' 

h— 

nO 

CN 

O' 

z 

z 

CN 

O' 

CD 

CO 

ro 

N 

• 

• 

o* 

z 

hO 

CO 

Qlk  « 
u*)  cs  •  rsi 
r^.  QP  u*3  ^ 


cn 
cc 


csk  cs)  csa 


cn 

<r 

CJ 


cc  •  «» 

<j:  NO  m  — ^ 

o. 


On  op 
CO  (>» 


OP  «P  CQ  On 


OP  tS>  On 


csa  on  <»  «» 


cat  OP  OP 
m  «P  CP  CN 
fNo  OP  (n  Q9t 


CC  t«  UP  qp  qp 

Ui  tsk  OP  qp  PP 

h—  ca  OP  CA  OP 

iii  Ph  CK)  «k  rN. 

—  —  —  csi  1-0 

•  »-o 
—  hn  • 

no  tn 


<C  CN 


oc 

<r 

cx. 


CN  rs  CN  CN  CN  CM 

cat  “N  — 


LU  ixl  tcJ  LU 

CN  nO 


I 


■  I  >  I  •  I 

UJ  ui  UJ  Ixl  UJ  uu 

CN  ro  N-<  *'4  nO  ro 

pp  m  ic?  ^  iv^ 

ITJ  nO  O'  (Nn,  N—I 

NO  tra  ^  CN  m 

rN.  "pN  fo  CN  ^ 

fNN*  (>4  QQ  ^ 

CN  ««r  ^  ho  N-I 


I 


I 


I 


I 


hO  hO  hO  hO 
“  pp 


hO  CN  ^ 

^ 

hO  h^ 


I 


I 


UJ  UJ  iij  UJ  UJ 

OO  CN  NO  -O 

»-*^NOirsfNN 

uo  •r  cN  fN^  hn 

fNS.  hN*  ^ 

On  lO  OO  «t  hN. 

CO  CO  >0  ».« 

CN  On  On  CN 


hO  hO  hO  ho  hO 

pp  OP  cat  ^  — 


I 


i 


I 


I 


cn 


^  rN»  CN  ^  hn 


CO  -o  u*a  ^  On  ^ 

CN  On  O'  CN  N-^ 

cj  CN  O'  hn  ro  CO 

^  ^  O'  c»  hN. 

LU  «a  ITJ  PP  Cn-  C*nn 

hN.  fN*-  OO  O'  “O 

CD  •  •  •  ■  • 

Z  pp  «a  ^  tSk  VI 


oc  CN 
U4 


a.  pp  pp  ^ 


z  UJ 
a  Vk 
OS  m 

U.  hN. 


<r  PC  oc  S  cz:  oc 
CJ  CO  CO  CO  G  CO 
Cnh—i—h—^—h— 
CO  CJ  CJ  CJ  CD 

>-  <x  <r  <3:  <r  <c 
<r  u.  LU  U.  LU  u- 
CO 

oc  s  z  z  oc  n: 

^  CD  CD  CD  CD  CO 


Ui  On 


I— I  hO 

OC 


9 

• 

• 

• 

• 

• 

• 

« 

• 

• 

• 

in 

in 

hN 

nO 

\n 

m 

in 

in 

hN 

<r 

in 

z 

•p* 

z 

z 

r— 

CN 

CN 

CN 

CN 

CN 

CN 

CN 

CN 

CN 

CJJ 

ro 

ro 

ro 

z 

hn 

ro 

z 

z 

Z 

z 

z 

z 

z 

Z 

z 

z 

z 

z 

z 

Z 

1 

1 

1 

1 

t 

1 

1 

t 

o. 

1 

1 

1 

1 

1 

1 

z 

z 

z 

z 

z 

z 

z 

z 

z 

z 

z 

z 

z 

z 

z 

z 

rN' 

z 

CO 

z 

CO 

O' 

z 

z 

O' 

'O 

zH 

•p* 

r'N. 

ro 

m 

CO 

z 

CN 

z 

tN. 

CN 

CN 

z 

O' 

*0 

CO 

O' 

z 

r'N 

ro 

z 

O' 

z 

r'N 

r'N 

CN 

Z 

z 

hN 

fN. 

ho 

r'N 

z 

fN. 

hN. 

CN 

hN. 

•ch 

z 

Z 

CN 

'O 

hN 

CN 

hO 

z 

O' 

to 

nO 

O' 

fO 

CN 

O' 

>0 

Na 

hN 

z 

z 

hN 

z 

ro 

•o 

ac 

Z 

-a 

CN 

>0 

z 

V 

ro 

z 

O' 

O' 

z 

O' 

O' 

z 

ro 

ro 

CN 

CN 

in 

O' 

z 

N-4 

CN 

ro 

ro 

•h 

ro 

ro 

«r 

z 

ro 

ro 

ro 

ro 

ro 

-4 

CN 

CN 

CN 

CN 

CN 

CN 

CN 

CN 

CN 

a: 

z 

to 

lO 

lO 

ro 

ro 

ro 

Z 

Z 

Z 

Z 

z 

Z 

z 

z 

Z 

•— < 

z 

z 

z 

z 

z 

z 

LU 

LU 

LU 

LU 

z 

lii 

z 

LU 

z 

s 

z 

z 

z 

z 

Z 

z 

O' 

Z 

nO 

CN 

-o 

z 

M* 

r'N 

■€• 

-o 

'O 

ro 

in 

CN 

z 

CN 

-o 

•P" 

ro 

«p- 

hN 

ro 

o 

oO 

Z 

O' 

z 

hN 

O' 

z 

hN 

-o 

CN 

O' 

z 

O' 

z 

z 

fN. 

CN 

ro 

hN 

z 

hN 

hN 

•«“ 

z 

ro 

ro 

hN 

z 

z 

CN 

O' 

z 

>.0 

O' 

ro 

•h 

ro 

CO 

ro 

z 

hN 

ro 

CN 

fO 

z 

CN 

hn 

nO 

in 

in 

hN. 

z 

z 

z 

z 

lO 

'O 

Z 

O' 

O' 

xn 

ro 

•p 

"p* 

%»- 

to 

in 

z 

O' 

— « 

hN 

'O 

IN. 

ro 

« 

oc 

• 

ro 

ro 

CN 

CN 

<x 

CN 

lO 

z 

z 

z 

z 

z 

z 

z 

z 

z 

Z 

z 

z 

Z 

z 

z 

z 

z 

UJ  LU  Uki  IjLl  UJ 

— 4  CO  CN  nO  nO 

N— I  ^  -o  irj  hNN 

m  N*r  CN  hNs  ro 

hNN  r*N-  •ip>  ^ 

ONhOCOnphN- 
ooppNON-^rN.- 
CN  ira  On  O'  CN 


^  ^  CO 


pp  pp  <Sk  OP  pp 


hO 

uo 


ho  CNj  h-a  uo 
h->  N-  nO  N^ 
hN-  ^  r*N. 


UJ  LU 
nO  On 
llO  o 
cat  hN- 


CN  CN 
CN  CO 
OO  CN 
O'  N3  -o  --4 
-O  CN  -tf  -D 
hO  CN  CN  UO 


hO  hO  hO  hn  hO 


LU  :£  oc  cc  z  z 
CD 

hn  tSk  tsk  up  csk  cat 

Z  Vk  tSk  UP  tSk  (Xk 

CD  N—  — .  N—  ^ 


CO  CJ  CJ  CD  CJ 

UJ  ^ 

h—  <£  <r  <c  <s 


— .  *<-«  «3k  <Xk  h^ 

3:  -J  a:  ^  oc 


CO  cn 

m  a 
5  S 


^ 


CD  CJ 

<r  <x 

<Sk 


>- 

X 


3: 

§  s 


cn  z 


qp  CP  hO 

a:  — J  z 


CD  CJ  CJ  CJ  CJ 

<x  <x  <x  <£"  <£ 

Vk 


>->->“>->- 
X  X  X 


CO  z  -j  z  ^ 


hn 

z 


— <  — ^  pp  tSk  hn 

z  ^  z  z 


cx:  Qsi  oc 
<c  <s  <3: 
=>  o  => 


oc 

<r 

o 


•-1  CO  Cl  O  03  o 


Lu  Lu  LU  Uu  LU 
O  O  C=3  O  CO 


z 

z 

CN 

O' 

•** 

•o 

z 

hN 

ro 

z 

hN 

z 

O' 

'O 

z 

•p* 

CN 

CN 

CN 

CO 

CN 

CN 

Z 

Z 

ro 

O' 

• 

1 

1 

z 

z 

O' 

z 

O' 

-.-4 

z 

111 

z 

z 

hN 

O' 

•-4 

CN 

CN 

z 

Cvi 

CN 

CN 

z 

z 

• 

z 

uh 

CN 

Z 

Z 

CN 

z 

O' 

z 

oD 

4*4 

to 

fN. 

Z 

O' 

•hO 

'O 

O' 

IN. 

~o 

z 

O' 

ro 

ro 

ro 

ro 

CN 

•p* 

Z 

CN 

CN 

z 

O' 

Z 

z 

z 

z 

Z 

hN 

ro 

"P- 

O' 

o^ 

O' 

I 

t 

1 

I 

1 

CN 

»-4 

O' 

z 

z 

z 

z 

z 

• 

4 

• 

• 

4 

I 


CN  CN  CN  CN  CN 
qp  Vk  pp  qp  CSO 


UJ 

«k  CN  CN  CN  m 

^  CN  in  OO  CN 

-o  hn  h^  m 

nO  On  hN. 

CSk  'P'  CN  CN 

— M  hO  ^  O'  On 

N~«  N-l  — ♦  CJN 


I 


I 


I 


CN  CN  CN 


CN 


h')  hNN  hN. 


l/a  CN  _  _ 

ir?  O'  'D  hN.  .  , 

nO  CN  hN.  CN  CN 

ro'p-in—*- 
fO  CN  CO  ho  ^ 

ira  uo  O'  uo  ho 

^  wr - - 


Z  CN  CN 


LU  Ui 
UO  CN 
in  On 

■nO  cn 
m  ^ 
hO  CN 
m  in 


I 


I 


LU  UJ  LU 
nO  OO  N- 
nD  pN-  CN 
fN^  CN  CN 
in  *-«  hN 
Z  hO  NO 
O'  ira  ho 
ra  CN  CN 


***■  !r*  lo  no 
O'  (C3  CN  CN  hO 
CN  «— *  Z  •-»  inn 

in  r..  O'  «o 

On  fO  m  -D 


nO  qi 


nO 

nO  m  uo  «*•  CN 


CN  CN  CN  CN 

_ 

I 

U. 

z 


OS  no  in  Vk 
nO  OO 

z  ^  z 
^  hN*  CN 
m  CN  CN 


CD 

Ui 

a. 


C/J 


z 


in  tSk  hN.  hO  On 
w-  -N*  ho  hn  h..  — ^ 
h—  O'  ro  -*■  ‘-N 
Z  N*  pp 

LU  PP 


CN  -D  C" 


r«»  w 
hO  hO 


■P*  pp  ^  hO  hN. 

— .  «>».  g..! 


CD  N-4  ^  *N«  N-4 


^  z 

O' 


Vi  kSk  up  ^ 


Z  Z  z  Z 

O  03  O  z 


hN  K, 

h^  On 
On  CT 


CD  CJ 


CD  CJ  Z 

<c  o; 


z 

z 

O' 

'O 

Z 

z 

z 

z 

<r 

oc 

CN 

ro 

ro 

40 

CN 

CN 

ro 

ro 

40 

CN 

CN 

CN 

CN 

CN 

CN 

CN 

CN 

CN 

r— 

z 

CN 

CN 

CN 

CN 

CN 

ro 

ro 

CN 

CN 

ro 

z 

Z 

Z 

QSl 

z 

z 

Z 

z 

Z 

z 

z 

Z 

Z 

z 

z 

z 

z 

z 

z 

z 

Z 

z 

z 

UJ 

UJ 

Z 

tn 

Z 

z 

z 

Z 

UJ 

z 

UJ 

z 

z 

z 

z 

O' 

z 

CO 

CO 

CN 

CN 

O' 

t''. 

r'' 

Z 

O' 

CN 

f'' 

z 

z 

CN 

z 

CN 

ro 

z 

•rr 

Z 

UL. 

ro 

•P* 

r''. 

z 

z 

'«r 

z 

«»• 

tn 

hN 

In, 

ro 

z 

CO 

z 

z 

40 

N- 

V 

ro 

z 

z 

-D 

z 

-o 

O' 

z 

-o 

O' 

CO 

Ch* 

•p* 

z 

ro 

CN 

z 

z 

h% 

fh. 

•r 

O' 

z 

z 

z 

'O 

O' 

CN 

z 

z 

f". 

ro 

z 

lO 

PT 

pf 

VPif 

NJ 

ro 

z 

z 

CN 

1C 

-O 

z 

ro 

z 

O' 

Z 

Ch 

ro 

IN. 

O' 

z 

■.o 

O' 

z 

CN 

z 

z 

Z 

ro 

ro 

z 

h'- 

z 

• 

ac 

z 

Z 

Z 

ro 

z 

z 

rN 

z 

CN 

CN 

'ch 

»— 4 

rh. 

O' 

-4 

4-4 

C3Q 

CN 

CN 

CN 

CN 

CN 

CN 

CN 

CN 

X 

z 

ro 

ro 

CN 

CN 

ro 

CN 

CN 

CN 

CN 

CN 

Z 

t 

Z 

1 

Z 

z 

1 

Z 

Z 

1 

Z 

Z 

K— 

z 

HP 

Z 

Z 

z 

z 

z 

Z 

Z 

Z 

z 

z 

z 

z 

LU 

z 

Ui 

z 

<ac 

z 

z 

Z 

LU 

1 

z 

LU 

1 

z 

z 

1 

z 

1 

Z 

CN 

CN 

CN 

>0 

PN 

O' 

Z 

z 

O' 

h^ 

f'. 

CN 

Z 

O' 

-D 

*p* 

O' 

•.u 

Z 

'O 

z 

z 

z 

CN 

CN 

r> 

h- 

z 

CO 

•p* 

ro 

•h 

•P- 

h" 

Z 

NT 

CO 

'O 

CO 

ro 

O' 

I"* 

z 

«p- 

ro 

^4 

CO 

OO 

z 

40 

Ph 

z 

'O 

O' 

CO 

CO 

<Q 

z 

40 

z 

Z 

4*4 

z 

t'' 

h- 

O' 

PI* 

in 

ro 

CN 

OO 

"*0 

fN. 

CN 

4-4 

ro 

•p“ 

ro 

qp 

m 

O' 

CN 

tn 

z 

fh. 

z 

z 

CN 

in 

CN 

CN 

4*4 

*0 

z 

ro 

z 

O' 

z 

Oh 

4—1 

-O 

z 

Pf 

o- 

OO 

rv* 

ro 

m 

cn 

•o 

z 

O' 

z 

h- 

m 

Z  z  z 


g  =  ^  ^ 

<£  Z  CD  z  CD  z 

UJ  Z  Z  S  Z  z 


h»  UP  OP  Z  OP 

z  z  qiT 


<r 

oc 

ro 

p* 

in 

in 

h'C 

ph 

CN 

40 

h't 

CO 

z 

in 

Z 

<c 

CD 

I'C 

O^ 

j: 

CD 

.4 

<x 

o 

z 

z 

z 

z 

z 

z 

Z 

z 

z 

z 

z 

z 

ca 

cn 

z 

Z 

cn 

z 

Z 

z 

CO 

cS 

c-T 

cT 

uT 

cT 

CD* 

CD 

tS 

cd' 

(S 

cS 

CD* 

z 

r— 

<z 

<£ 

<£" 

<£* 

<r 

<£ 

pc’ 

X 

X 

X 

X 

X 

X 

Ui 

r— 

PC 

<£ 

<r 

<c 

cc 

<X 

X 

oc 

z 

4—1 

z 

z 

ro 

z 

w-4 

-.p 

z 

z 

ro 

z 

«*4 

z 

z 

ro 

4—4 

cn 

z 

z 

oc 

a: 

z 

4PJ 

oc 

a: 

z 

z 

z 

a: 

oc 

z 

z 

a: 

z 

Z 

z 

z 

z 

z 

z 

z 

z 

z 

z 

X 

s 

LU 

Z 

LU 

z 

LU 

z 

Lu 

Lu 

z 

u. 

ae 

<x 

S 

<i; 

■<x 

<c 

<r 

<c 

<c 

<r 

<x 

<c 

at: 

•— * 

»-4 

•—4 

:>* 

> 

> 

> 

> 

o 

z> 

34 

s 

s 

(=3 

O 

C=3 

X  X  X  X 


03  o  Z  z  f=) 


A-45 


PARAMETERS  PARAMETERS 

1.2(liei  3.7500ailE-«2  64.00600  56789.00  1.200000  3.7500001E-02  64.00000  56789.00 

60.00000  0.0000000E400  90.00000  64.00000  60.00000  0.0000000E400  90.00000  64.00000 

53.20000  90.00000  53.20000  9.885000  53.20000  135.0000  53.20000  9.88500# 

1.337000  1.0200000E-09  99999.00  99999.00  1.337000  1.0200000E-09  99999.00  99999.00 
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PARAMETERS  PARAMETERS 

1.211018  3.750fi01E-02  64.00000  56789.00  1.200000  3.7S00001E-02  64.00000  56789.00 
60.00000  0.0000flfE+00  135.0000  64.00000  60.00000  0.0000000E400  135.0000  64.00000 
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DIF  HI  X,Y,S  3.li3l3A6E-03  2.0351906E-03  5. 13B2259E-03  OIF  HI  2.1A72559E-03  2.Uli4l9E-03  4.25829B3E-03 
DIF  LI  X,Y,S  2.1644537E-03  1.7119033E-03  3.8763594E-03  DIF  LI  X,Y,S  1.8792632E-03  2.267289IE-03  4,1465531E-03 
DIF  H0  X,Y,S  8.il576504E-03  7.8005660E-03  1.6258202E-02  OIF  H0  X,Y,S  2.7653703E-03  1.7531270E-03  4.5184931E-03 
DIF  L0  X,Y,S  l.i:7B816E-02  1.1307973E-02  2.24B6756E-02  DIF  L0  X,Y,S  3.4181611E-03  1.8812172E'03  5.2993726E-i3 
DIF  H3  X,Y,S  2.fll41555E-03  1.8592430E-03  3.8734048E-03  OIF  H3  X,Y,S  2.0962798E-03  I.9215163E-03  4.01779f8E'03 


PARAMETERS  PARAMETERS 

1.201000  .1.7500001E-02  64.00000  56789.00  1.200000  3.7500001E-02  64.00000  56789.00 
36.00000  l.0000000E^00  0.0800000E^00  64.00000  36.00000  0.00000008^00  0.0000000E+00  64.00000 
53.20000  180.0000  53.20000  9.885000  53.20000  0.0000000Ei00  53.20000  9.885000 
1.337000  I.0200000E-09  99999.00  99999.00  1.337000  1.0200000E-09  99999.00  99999.00 
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6.3  Appendix  III  -  FORTRAN  77  Code 

The  input  data  files,  FORTRAN  programs,  and  FORTR.AN 
subroutines  that  were  created  in  support  of  this  study  are 
listed  as  follows: 


Input  Data  Files 
PARM.DAT 
V_DATA.DAT 

FORTRAN  Programs 
SURF. FOR 
LIGHTBLUE.FOR 
LIGHT. FOR 
ANALYS . FOR 
PSVARY. FOR 

FORTRAN  Subroutines 
ALPHA. FOR 
ALPHAS . FOR 
CHECKERBOARD. FOR 
DARKNESS . FOR 
DEEPBLUE. FOR 
DIST_GEN. FOR 
FFT2D.FOR 
PLT2DFILE. FOR 
PLT2DOUTPUT . FOR 
PLT3DFILE . FOR 
PLT3DINPUT . FOR 
PLT3DOUTPUT.FOR 
PSVARYl . FOR 
PSVARY2 . FOR 
RALPH . FOR 
RIMP . FOR 
SEA_SPEC . FOR 
SKYBLUE. FOR 
SKYMAP.FOR 
SPREADVARY. FOR 
WGN_SPEC . FOR 
WGN2D . FOR 
WIND. FOR 
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Input  Data  Files 


TYPE  PARM.DAT 


4 

4 

1.20 

0.0375 

64.0 

56739.0 

60.0 

0.0 

135.0 

64.0 

53.2 

0.0 

53.2 

9.885 

ft 

1.337 

1.02E-9 

99999.0 

99999.0 

AAAAAAA 

A 

PARM . DAT 

PARAMETERS 

aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa 

A 

PARM__ROWS 

?ARM_COLS 

A 

K^NYQ 

DELTA_K 

N1(SURF_ARRAY) 

ISEED(RANDOMIZER) 

A 

MIND_^V(Z) 

Z  [CM) 

WIND_AZ 

N(DOME_ARRAY) 

A 

THETA(SENSOR) 

PHIO(SUN) 

THETAO (SUN) 

LREF(LSKY(0,0)) 

A 

INDEX  REAL 

INDEX  IMAG 

UNUSED 

UNUSED 

*  NOTES:  LREF  «  100.0  FOR  THETAO  «  0.0  DEG 

LREF  =  32.65  FOR  THETAO  »  26.6  DEG 

*  LREF  =  9.885  JOR  THETAO  «  53.2  DEG 


AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAkAAAAAAAAAAAAAAAA 
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TYPE  V  DATA.DAT 


9.3570001E-02 

5.000000 

98.63132 

116.0000 

118.7493 

124.0000 

7.1240805E-02 

6.000000 

122.4473 

143.0000 

146.5888 

153.0000 

2.8380003E-02 

10.00000 

227.0883 

262.0000 

267.3242 

278.0000 

1.8863197E-02 

12.00000 

284.7601 

326.0000 

333.0432 

346.0000 

1.0929998E-02 

15.000C0 

376.4139 

428.0000 

436.7679 

453.0000 

7 .5672008E-03 

18.00000 

468.2427 

530.0000 

540.6674 

561.0000 

7.0200004E-03 

20.00000 

524.0226 

593.0000 

604.4945 

627.0000 

8.8527985E-03 

24.00000 

614,9089 

698.0000 

711.4752 

738.0000 

9.8099969E-03 

25.00000 

634.1133 

721.0000 

734.7032 

763.0000 

1.7019998E-02 

30.00000 

719.6121 

824.0000 

840.3198 

874.0000 

2.7672853E-02 

35.00000 

797.0169 

918.0000 

937.8427 

977.0000 

3.0168798E-02 

36.00000 

812.0167 

937.0000 

956.8661 

997.0000 

4.1279998E-02 

40.00000 

870.8839 

1010.000 

1031.828 

1075.000 

4.7484916E-02 

42.00000 

899.7244 

1045.000 

1068.715 

1115.000 

5  7569999E-02 

45.00000 

942.3242 

1098.000 

1123.386 

1173.000 

6.8561204E-02 

48.00000 

984.1787 

1151.000 

1177. Jll 

1231.000 

7.6380000E-02 

50.00000 

1011.687 

1185.000 

1212.867 

1269.000 

9.3171470E-0r 

54.00000 

1065.795 

1253.000 

1283.069 

1343.000 

9.7606353E-02 

55.00000 

1079.138 

1270.000 

1300.435 

1362.000 

0.1211800 

60.00000 

1144.791 

1353.000 

1386.207 

1453.000 

0.1470531 

65.00000 

1208.744 

1434.000 

1470.277 

1543.000 

0.1525004 

66.00000 

1221.338 

1450.000 

1486.895 

1562.000 

0.1751914 

70.00000 

1271.084 

1514.000 

1552.736 

1631.000 

0.1870752 

72.00000 

1295.587 

1545.000 

1585.286 

1665.000 

0.2055700 

75.00C00 

1331.893 

1592.000 

1633.663 

1717.000 

0.2248644 

78.00000 

1367.675 

1638.000 

1681.516 

1768.000 

0.2381700 

80.00000 

1391.246 

1669.000 

1713.134 

1802.000 

0.2658397 

84.00000 

1437.728 

1729.000 

1775.710 

1869.000 

0.2729771 

85.00000 

1449.214 

1744.000 

1791.219 

1886.000 

0.3099800 

90.00000 

1505.859 

1818.000 

1867.983 

1968.000 

0.3491700 

95.00000 

1561.244 

1891.000 

1943.485 

2049.000 

0.3572698 

96.00000 

1572.174 

1905.000 

1958.439 

2065.000 

0.3905400 

100.0000 

1615.421 

1962.000 

2017.781 

2129.000 

0.4076971 

102.0000 

1636.766 

1990.000 

2047.173 

2161.000 

0.4340843 

105.0000 

1668.444 

2032.000 

2090.922 

2208.000 

0.4612525 

108.0000 

1699.723 

2074.000 

2134.271 

2254.000 

0.4797982 

110.0000 

1720.359 

2101.000 

2162.954 

2285.000 

0.5179287 

114.0000 

1761.123 

2156.000 

2219.813 

2347.000 

0.5276778 

115.0000 

1771.210 

2170.000 

2233.923 

2362.000 

0.5777199 

120.0000 

1821.038 

2237.000 

2303.869 

2437.000 

0.6299220 

125.0000 

1869.881 

2303.000 

2372.831 

2512.000 

0.6406213 

126.0000 

1879.535 

2315.000 

2386.508 

2527.000 

0.6842815 

130.0000 

1917.775 

2368.000 

2440.843 

2585.000 

0.7066289 

132.0000 

1936.674 

2354.000 

2467.789 

2615.000 

0.7407966 

135.0000 

1964.753 

2433.000 

2507.938 

2658.000 

C .  7757397 

t  O  O  ^  AAOO 

1992 . 513 

2 A71 , 000 

25/.7  7$0 

2701  000 
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FORTRAN  Programs 


PROGRAM  SURF 

* 

*  CREATE  SYNTHETIC  WIND-DRIVEN  WATERWAVE  SURFACE  OF  TWO  SLOPE-COMPONENT 

*  (X  &  Y)  ARRAYS  (+  OPTIONAL  ELEVATION  ARRAY) 

*  CONVERT  SLOPE-COMPONENT  ARRAYS  INTO  MAXIMUM-SLOPE  &  SLOPE-AZIMUTH  ARRAY 


'  INPUTS: 

*  WIND^V  •  WIND_VELOCITY  (CM/SEC) 

*  Z  =«  HEIGHT  OF  WIND_V  MEASUREMENT  (CM) 

*  WIND__AZ  -  WIND__AZIMUTH  (DEG) 

*  K_NYQ  «  MAX_WAVENUMBER  (CY/CM) 

*  DELTA^K  o  DELTA_WAVENUMBER  (CY/CM) 


(  >  0  )  * 

[  >  0  )  » 

(-180. .+180)  » 
(  >  0  )  * 

(  >  0  )  * 


IMPLICIT  NONE 

INTEGER  1,11,12, J,J1,J2,N, N1,N2,N3,P, PI, P2,Q,Q1,Q2 
PARAMETER(N=6^,P=-N/2,Q«N/2-l) 

PARAMETER(Nl»64,Plo-Nl/2,Ql»Nl/2-l) 

INTEGER*4  ISEED 
INTEGER  KCOR(P:Q,P:Q) 

REAL  ANG0,ANG1,ANG2,ANG3,BIAS1,B:aS2,DELTA_K,K_NYQ,PI,SCALE1,SCALE2 
REAL  SLOPE , SUMl , SUM2 , TEMP , VAR_UD , VAR_US , VAR_CD , VAR^CS , VAR_SD , VAR_SS 
REAL  WGHT,WIND_AZ,WIND_V,X1,Y1,X2,Y2,Z 

REAL  F1(P;Q,P:Q) ,F2(P:Q,P:Q),F3(P:Q,P:Q) ,F4<P:Q,P:Q),W1(P:Q,P:Q) 

REAL  DIST1(P1:Q1,P1:Q1) ,DIST2(P1:Q1,P1:Q1),FX1(P:Q,P:Q),FY1(P;Q,P:Q) 
REAL  XDIST1(P1:Q1,2) ,XDIST2(P1 :Q1 , 2) , YDISTl (PI : Q1 , 2) , YDIST2(P1 : Q1 , 2) 
REAL  PARM(-2:1,-2:1) ,VARY(0:4,0:4) 

REAL  RY(P1;Q1,P1;Q1) ,IY(P1:Q1,P1:Q1) ,MY(P1:Q1,P1:Q1) ,PV(P1:Q1,P1:Q1) 
COMPLEX  G1(P:Q,P:Q) ,G2(P:Q,P:Q) 

COMPLEX  G3(P:Q,P:Q),G4(P:Q,P:Q) 

COMPLEX  GX1(P:Q,P:Q) ,GY1(?:Q,P:Q) ,GWN(P : Q, P : Q) 

CHARACTER*!  OPT 
CHARACTER*18  FNAME 


PIa3. 14159 


WRITE(*,*)  '  * 

WRITE(*,*)  'ENTER  FILENAME  OF  PARAMETERS  «  PARM' 
***  READ(* , 300)  FNAME 

FNAME=' PARM.DAT' 


WRITE(*,*)  '  ' 

WRITE(*,*)  'READING  FARM . ' 

CALL  PLT3DINPUT(FNAME,PARM,N3,-2,1) 

WRITE(*,*)  '  » 

DO  I=-2,l 

WRITE(*,*)  (PA?M(I, J) ,J«-2,1) 

END  DO 

X_NYQ-PARM(-2,-2) 
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DELTA_K«PARM<-2,-l) 

N2«INT(PARM(-2,0)) 

N3«INT(PARM(-1,1)) 

ISEED«JINT(PARM( -2 , 1 ) ) 

WIND_VaPARM(-l,-2) 

Z‘-PARM(-1,-1) 

WIND_AZ=PARM(-1,0) 

1* 

IF  ((N.NE.N2) .OR. ((K_NYQ/DELTA_K) .NE.FL0AT(N/2)))  THEN 
WRITE(*,*)  ’INCORRECT  PARAMETER  FILE  (N(SURF)l’ 

GOTO  5 

ENDIF 

* 

IF  (N1.NE.N3)  THEN 

WRITE(*,*)  ’INCORRECT  PARAMETER  FILE  {NX(DOME))’ 

GOTO  5 

ENDIF 

ft 

^  CREATE  N>^N  COMPLEX  MATRIX  GMN<L,M)  OF  NORMALIZED,  FREQUENCY-DOMAIN 

*  WHITE  GAUSSIAN  NOISE 

ir 

CALL  WGN^SPEC ( W1 , GWN , ISEED , N , P , Q) 

* 

WIND_AZ*WIND_,A2*(  PI/ 180.0) 

it 

CALL  SEA^SPEC ( WIND_V , Z , WIND^AZ , DELTA^K ,F1,F2,F3,FA, FXl , FYl , KCOR, N , P , Q) 

* 

WRITE(*,*)  ’  ’ 

WRITE<^,*)  ’TSLOPE  »  TOTAL  (X+Y)  SLOPE  SPECTRUM=SQRT( (K^2)*S(L,M) ) ’ 

IF  (N.EQ.64)  CALL  ALPHA(F1,64) 

FNAME-’ TSLOPE. RAE’ 

CALL  PLT3D0UTPUT(FNAME,F1,N,P,Q) 

***  CALL  PLT3DF1LE(F1,N) 
n 

MRITE(*,*)  •  * 

WRITE(*,*)  ’HEIGHT  «  ELEVATION  SPECTRUM»SQRT(S(L,M) ) ’ 

IF  (N.EQ.64)  CALL  ALPHA(F2,64) 

FNAME-’ HEIGHT. RAE’ 

CALL  PLT3DOUTPUT(FNAME,F2,N,P,Q) 

***  CALL  PLT3DFILE(F2,N) 

* 

PRITE<*,*)  *  ’ 

WRITE(^,*)  ’XSLOPE  «  X-COMPONENT  SLOPE  SPECTRUM-SQRT (  (L^^a) *S(L , M)  )  ’ 

IF  (N.EQ.64)  CALL  ALPHA(F3,64) 

FNAME-* XSLOPE. RAE’ 

CALL  PLT3DOUTPUT(FNAME,F3,N,P,Q) 

***  CALL  PLT3DFILE<F3,H2) 

* 

WRITE(*,*)  ’  ’ 

WRITEC*,*)  'YSLOPE  «  Y-COMPONENT  SLOPE  SPECTRUM-SQRTC <M^2)*S(L,M) ) * 

IF  (H.EQ.64)  CALL  ALPHA(F4,64) 

FNAME-r*  YSLOPE.  RAE’ 
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CALL  PLT3D0UTPUT(FNAME,FA,N,P,Q) 
CALL  PLT3DFILE<FA,N) 


★ 

A  FILTER  MATRIX  GWN  WITH  SLOPE-COMPONENT  SPECTRUMS  FXl  &  FVl 
A  OPTIONAL  FILTERING  OF  TOTAL  SLOPE  SPECTRUM  Gl  &  ELEVATION  SPECTRUM  G2 


DO  IeP,Q 
DO  J«P,Q 


AAA  G1(I,J)»CMPLX(0.0,F1(I, J))AGWN(I, J) 

AA«  G2(I, J)-CMPLX<0.0,F2(I, J) )AGWN(I, J) 

GXKI,  J)-CMPLX(0.0,FX1(I,  J)  )AGWN(I,  J) 
GY1(I,J)*CMPLX(0.0,FY1(I, J))AGWN(I,J) 


END  DO 
END  DO 

* 

A  BACK-FOURIER-TRANSFORM  THE  FILTERED  SLOPE-COMPONENT  SPECTRUMS  GXl  &  GYl 
A  OPTIONAL  BACK-FOURIER-TRANSFORM  OF  GI  &  G2 


AA*  CALL  '?T2D(GX .N,+l) 

AA*  CALL  FFT2D (G2 , N , +1 ) 

CALL  FFT2D(GX1,N,+1) 

CALL  FFT2D(GY1,N.+1) 

* 

A  OPTIONAL  COMPLEX  DISPLAY  (REAL, IMAG, MAG, PHS)  OF  G1,G2,GX1  &  GX2 
* 

AA*  IF  (N.EQ.e/i)  THEN 

CALL  RALPH(G1,64,RY,IY,MY,PY) 

AA*  CALL  RALPH(G2,64,RY,IY,MY,PY) 

CALL  RALPH(GXl,6A,RY,iy,MY,PY) 

A A*  CALL  RALPH(GY1,6A,RY,IY,MY,PY) 

AA*  ENDIF 

* 

SCALEl-FLOAT(Ql) 

SCALE2»PLOAT(Ql ) / 90 . 0 
WIHD_AZ«WIND_AZ*(180.0/P1) 

WGHT-1.0/FLOAT(NaH) 

* 

A  RESCALE  THE  TRANSFORMED  SLOPE-COMPONENT  ARRAYS  GXI  &  GYl 
A  CONVERT  SLOPE-COMPONENTS  INTO  MAXIMUM_SLOPE  ARRAY-FYl (X, Y)  (DEG]  (0.,+90] 
A  and  SLOPE  AZIMUTH  ARRAY»FXi<X, Y)  (DEG)  (-180.. +180] 

A  CALCULATE  ALONG-MINO,  CROSS-WIND,  &  COMBINED  VARIANCES 

A  CREATE  SLOPE  DISTRIBUTION  ARRAYS«DIST(SLOPE, AZIMUTH)  (PROBABILITY]  (0..1] 
* 

DO  I-P,<5 
DO  J«P,Q 


X1«TAN(REAL(GX1(I, J))aDFLTA_K) 
Y1«TAN<REAL(GY1(I, J))adELTA^K) 

IF  (Xl.NE.0.0)  THEN 
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FXl(I,J)«/vTAN2D(Yl,Xl) 

ELSE 

FX1(I,J)»0.0 

EHDIF 

SLOPE=SQRT( (X1**2)+(Y1^*2) ) 

FYl ( I , J) «ATAND ( SLOPE) 

ANGO=COSD(FX1(I, J)) 

ANG1-SIND(FX1(I,J)) 

X1»ANGO*SLOPE 

Yl=ANGl*SLOPE 

X2«ANG0*FY1(I, J) 

Y2-ANGi*FYl(I, J) 

ANG2=*COSD(WIHD_AZ-FXl  ( I ,  J) ) 

ANG3-SIND(WIHD_AZ-?X1(I, J)) 

VAR_UD*VAR_UD+WGHT*< ANG2*FY1  <  I ,  J) )  >^*2 
VAR_US«VAR_US+WGHT*(ANG2*SLOPE)A*2 

VAR_CD»VAR_CD+WGHT* ( ANG3*FY1 ( I , J) ) **2 
VAR_CS-»VAR_CS+WGHT*(ANG3*SLOPE)**2 

VAR_SD=VAR__SD+WGHT*  ( FYl  <  I ,  J)  **2 ) 
VAR_SS«VAR_SS+WGHT^(SLOPE*A2) 

I1«INT(X1*SCALE1+SIGN(0.5,AMG0) ) 
JloINT(Yl*SCALEl+SIGK(0.5,AKGl)) 

I2-I1IT(X2*SCALE2+SIGK(0.5,AI?G0)  ) 
J2-IKT(Y2*SCALE2+SIGH(0.5,AHG1)) 

IF  (ABS(Il’frJl)  .LE.  (Ql*’^2))  DISTl  ( II ,  J1  )bDIST1  ( II ,  J1  )+WGHT 
DIST2(I2, J2)«DIST2(I2, J2)+WGHT 


END  DO 
END  DO 

WRITE(*,*)  »  » 

WRITE<*,*)  »MANT  CROSS-SECTION  DISTRIBUTIONS  FOR  PLT2D?  (N] » 
READ(*,300)  OPT 

IF  <(OPT.EQ.'Y*).OR.(OPT.EQ.»y'))  THEN 

DO  I-P1,Q1 
DO  J-Pl.Ql 


XDISTl (1,1) -FLOAT ( I ) / SCALEl 
XDIST1(I,2)«DIST1<I,0) 


YDIST1(J,1)-FL0AT(J)/SCALE1 

YDIST1<J,2)=DIST1(0,J) 

* 

XDISX2(I,1)-FL0AT(I)/SCALE2 

X0IST2(I,2)«DIST2(I,0) 

★ 

YDIST2(J,1)=FL0AT<J)/SCALE2 
YDIST2(J,2)«DIST2(0, J) 

* 

END  DO 
END  DO 

* 

WRITE(*,^)  »  » 

MRITE(*,*)  ’CROSS-SECTION  DISTRIBUTIONS  FOR  PLT2D’ 

MRITEC*,*)  *  ' 

WRITEC*,*)  'XDISTl* 

CALL  PLT2DFILE(XDIST1,N1) 

WRITEC*,*)  ’  * 

WRITE(*,*)  ’YDISTl' 

CALL  PLT2DFILE(YDIST1,N1) 

WRITEC*,*)  *  ' 

WRITEC*,*)  ’XDIST2* 

CALL  PLT2DFILE(XDIST2,N1) 

WRITE(*,*)  ’  ’ 

WRITE(*,*)  ’YDIST2' 

CALL  PLT2DFILE(YDIST2,N1) 

A 

ENDIF 

*  BIAS  ALL  ZERO  VALUES  IN  F3  FOR  ALPHASCALE  DISPLAY 

A 

BIASl»0.02/-25.0 
***  BIAS2=0.02/-25.0 

A 

AAA  DO  I«iPl,Ql 

AAA  DO  JaPl,Ql 

***  IF  (DIST1(I,J).EQ.0.0)  DIST1<I,J)»BIAS1 

***  IP  (DIST2(I, J) .EQ.0.0)  niST2(I,J)«BIAS2 

AAA  end  DO 

***  END  DO 

A 

MRITE(^,*)  ’  ’ 

WRITE(*,*)  ’SLOPE  DISTRIBUTION  ARRAY-DISTl  (PROS)  (SLOPE  COORDINATES)' 
IF  (N1.EQ.64)  CALL  ALPHA(DIST1 , 64 ) 

FNAME»’DIST1.RAE' 

CALL  PLT3DOUTPUT (FNAME , DISTl , N1 , PI , Ql ) 

Awn  CALL  PLI3DFXLE(DtS7 1 , HI ) 

A 

MRXTE(*,*>  ’  ’ 

WRITE(*,*)  ’CROSS-WIND  SLOPE  VAR  (SLOPE^2]  &  DEV-  ’ ,VAR_CS, SQRT(VAR_CS) 
WRITE(A,A)  ’ALONG-WIND  SLOPE  VAR  (SLOPE^2]  &  DEV-  ’ ,VAR_US,SQRT(VAR_US) 
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WRITE (^,*)  *  TOTAL-WIND  SLOPE  VAR  [SLOPE^2)  &  DEV-  * ,VAR_SS,SQRT(VAR_SS) 

it 

WRITE(^,*)  »  » 

WRITE(*,*)  »SLOPE  DISTRIBUTION  ARRAY-DIST2  (PROB]  <FILENAME-DIST.RAY) » 
IF  (N1.EQ.64)  CALL  ALPHA(DIST2, 6A ) 

FNAME-»DIST2.RAE» 

CALL  PLT3D0UTPUT(FNAME,DIST2,N1,P1,Q1> 

***  CALL  PLT3DFILE(DIST2,N1) 


WRITE(’*,*)  '  » 


WRITE(*,*) 

'CROSS-WIND 

SLOPE 

VAR 

(DEG^2) 

&  DEV-  ' 

'  ,VAR_GD,SQRT(VAR_CD) 

WRITE<*,*) 

'ALONG-WIND 

SLOPE 

VAR 

(DEG^2] 

&  DEV-  ' 

'  , VAR^UD , SQRT ( VAR_UD ) 

WRITE(*,*) 

'TOTAL-WIND 

SLOPE 

VAR 

(DEG^2) 

&  DEV-  ' 

’  ,VAR_SD,SQRT<VAR_SD) 

K_NYQ»FLOAT ( N / 2 ) *DELTA_K 

CALL  PSVARY1(K_NYQ,N,WIND_V,Z,VARY) 

* 

WRITE(*,*)  *  * 

WRITE(*,*)  'MAXIMUM-SLOPE  ARRAY-BETA  [DEG]  (FILENAME-BETA . RAY) ' 
IF  (H.EQ.6ft)  CALL  ALPHA(FYl , 64 ) 

FNAME-'BETA.RAE' 

CALL  PLT3DOUTPUT(FNAME,FYl,N,P,Q) 

***  CALL  PLT3DFILE(FY1 , N) 

* 

WRITE(*,*)  *  ' 

WRITE(*,*)  'SLOPE-AZIMUTH  ARRAY-ALPH  (DEG]  (FILENAME-ALPH.RAY) ' 
IF  (N.EQ.64)  CALL  ALPHA(FX1 , 64 ) 

FNAME-'ALPH.RAE' 

CALL  PLT3DOUTPUT(FNAME,FXl,N,P,Q) 

***  CALL  PLT3DFILE(FX1,N) 

* 

300  FORMAT  (A) 

it 

5  END 
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PROGRAM  LIGHTBLUE 


* 

*  CREATE  UNPOLARIZED  SKVDOME  HEMISPHERICAL  RADIANCE  DISTRIBUTION 

*  CREATE  HORIZONTALLY^  &  VERTICALLY^POLARIZED  RADIANCE  COMPONENTS 

* 

*  MAP  SKYDOME  RADIANCE  DISTRIBUTIONS  TO  REFLECTED  SURFACE  COORDINATES 

★ 

*  CREATE  UNPOLARIZED  SUBDOME  HEMISPHERICAL  RADIANCE  DISTRIBUTION 

*  CREATE  HORIZONTALLY^  &  VERTICALLY^POLARIZED  RADIANCE  COMPONENTS 

it 

*  LSUB  IS  ALREADY  LINEARLY  MAPPED  TO  REFRACTED  SURFACE  COORDINATES 

it 

*  INPUT: 

^  LREF  »  REFERENCE  RADIANCE  MEASURED  AT  THE  ZENITH  POINT,  LSKY(0,0)  [UNIT] 

*  PHIO  -  SUN  AZIMUTH  [DEG]  (-180.. +180) 

*  THETA  =  SENSOR  ZENITH  ANGLE  (DEG)  [0..+90) 

*  ZO  -  SOLAR  ZENITH  ANGLE  (DEG)  (0..+90) 

A 

A  OUTPUT: 

*  LSKY  -  UNPOLARIZED  SKYDOME  SPATIAL  RADIANCE  DISTRIBUTION 

*  HSKY  «  HORIZONTALLY_POLARIZED  LSKY 

^  VSKY  -  VERTICALLY^POLARIZED  LSKY 

A 

*  LSRF  »  LSKY  MAPPED  TO  REFLECTED  SURFACE  COORDINATES  (ALPH,BETA) 

*  HSRF  o  HSKY  mapped  TO  REFLECTED  SURFACE  COORDINATES  (ALPH,BETA) 

*  VSRF  -  VSKY  MAPPED  TO  REFLECTED  SURFACE  COORDINATES  (ALPH,BETA) 

A 

A  lSUB  -  UNPOLARIZED  SUBDOME  SPATIAL  RADIANCE  DISTRIBUTION 

*  HSUB  -  HORIZONTALLY^POLARIZED  LSUB 

*  VSUB  »  VERTICALLY^POLARIZED  LSUB 

A 

IMPLICIT  NONE 
INTEGER  I,J,N,N1,P,Q 
PARAMETER  <Na64 , Pa-N/2,QoN/2-l) 

REAL  LSKY(P:Q,P:Q),HSKY(P:Q,P:Q),VSKY(P:Q,P:Q) 

REAL  LSRF(P:Q,P:Q),HSRF(P:Q,P:Q),VSRF(P:Q,P:Q) 

REAL  LSUB (P : Q,P:Q), HSUB (P:Q,P:Q) ,VSUB(P:Q,P:Q) 

REAL  LREF, PHIO, PI, THETA, ZO 
REAL  PARM<-2:1,-2:1) 

CHARACTER*i8  FNAME 

A 

PI=3. 14159 

A 

MRITE(*,*)  ‘ENTER  FILENAME  OF  PARAMETERS  »  FARM* 

FNAME»‘PARM.DAT‘ 

A 

WRITE(*,^)  ‘READING  PARM . ‘ 

CALL  PLT2DINPUT(FNAME  PAP.M  N1  -2  1) 

A 

DO  I=-2,i 

WRITEC-^,*)  (PARM(I,J),J— 2,1) 

END  DO 
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N1»INT(PARM(-1,1)) 

THE VA*PARM< 0,-2) 

PHI0-PARM<0,-1) 

Z0»PARM(0,0) 

LREF«PARM(0,X) 

* 

IP  (N.NE.Nl)  THEN 

WRITE (*,*)  'INCORRECT  PARAMETER  FILE’ 

GOTO  1 

ENDIF 

*e 

A**  WRITE(6,'^)  ’INPUT  LREF  [RADIANCE)  ,PHI0  [DEG),Z0  [DEG], THETA  [DEG] 

READC*,*)  LREF, PHI0,Z0, THETA 

it 

WRITE  *  LREF,  PHIO,  ZO,  THETA=’ ,  LREF,  PHI0,Z0,  THETA 

fi 

PHI0oPHI0*(PI/180.0) 

Z0-Z0*(PI/180.0) 

ft 

CALL  SKYBLUE(LREF,PHIO,ZO,N,P,Q,LSKV,HSKY,VSKV) 

it 

CALL  SKYMAP ( LREF , PHI 0 , 20 , THETA , N , P , Q , LSRF , HSRF , VSRF ) 

it 

CALL  DEEPBLUE(LREF,ZO,H,P,Q,LSUB,HSUB,VSUB) 

* 

X  END 
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PROGRAM  LIGHT 


*  CREATES  OBJECT  SPATIAL  RADIANCE  DISTRIBUTION  IN  THE  DIRECTION  OF  SENSOR 

Ht 

*  CALCULATES  FORWARD  FAST  FOURIER  TRANSFORMS  OF  SYNTHETIC  IMAGES 

It 

IMPLICIT  NONE 

INTEGER  I,I1,I2,INV,J, Jl, J2,N,N1,N2,NTMP,P,P1,P2,Q,Q1,Q2 

*  PARAMETER<N«64,P»-N/2,Q«N/2-l) 

*  PARAMETER(Nl=64,Pl»-Nir2,Ql«Nl/2-l) 

*  PARAMETER(N2-64,P2— N2/2,Q2-N2/2-l) 

REAL  I VI , I V2 , I V3 , NVl , NV2 , NV3 , RVl , RV2 , RV3 

REAL  D1<P:Q,P;Q),D2(P:Q,P:Q) ,D3(P:Q,P;Q),D4(P:Q,P:Q) 

REAL  DARK1<P:Q,P:0),DARK2(P:Q,P;Q) , DELTA 

REAL  DST1<P:Q,P:Q),DST2(P:Q,P:Q) ,DST3(P;Q,P:Q) ,DST4(P;Q,P:Q) 

REAL  GAMH(PjQ,P:Q) ,GAMS (P : Q, P : Q) ,GAMV<P :Q, P :Q) 

REAL  HRAD(P1:Q1,PX:Q1) ,LRAD(P1:Q1,P1:Q1),VRAD(P1:Q1,P1;Q1) 

REAL  aSKY(PjQ,?:Q),LSKY<P:Q,P:Q) ,VSKY(P:Q,P:Q) 

REAL  HSUB(P:Q,P:Q) ,LSUB(P:Q,P:Q) ,VSUB(P:Q,P:Q) 

REAL  PARM(-2:l,-2:l),V1250,VARy(0:4,0:4) 

REAL  ALPH < PI : Q1 , PI ; Q1 ) , COSALPHA , SINALPHA 

*  REAL  BETA(P1:Q1,P1 :Q1) , COSBETA, SINBETA 
REAL  DEVA,DEVC,DEVT 

REAL  GAMMAHOR,GAMMASUM,GAMMAVER 
REAL  MU,COSMU,SINMU 
REAL  NMBR(P:Q,P:Q) ,REF1 ,REF2 , SWITCH 
REAL  NU , COSNU , SINNU, TANNUl , TANNU2 
REAL  OMEGA, COSOMEGA,SINOMEGA 
REAL  INDEXI ,  INDEXR , RHO , RHOl 
REAL  THETA, COSTHETA,SINTHETA 

REAL  DELTA^K, K_NYQ, PHI, PHI1,PHI2, RADIUS, RANGE, TEMP, WIND_V,WIND_A2,Z 
***  REAL  RY(P:Q,P;Q) ,IY(P:Q,P:Q) ,MY(P:Q,P:Q) ,PY(P:Q,P:Q) 

REAL  ATH1(P:Q,P:Q),ATS1(P:Q»P:Q),ATV1(P:Q,P:Q) 

REAL  ATH2(P:Q,P:Q) , ATS2(P :Q,P : Q) ,ATV2(P:Q,P:Q) 

REAL  HMAG0(P1;Q1,P1:Q1) ,LMAG0(P1:Q1,P1:Q1),VMAG0(P1:Q1,P1:Q1) 

REAL  HMAGX(P1:Q1,P1:Q1),LMAGX(P1:Q1,P1:Q1) , VMAGX (PX : Q1 , PX : Ql) 

REAL  HMAG2(PX:QX,PX;Q1) ,LMAG2(PX:Q1,P1:Q1) , VMAG2(P1 :QX ,P1 : Q1 ) 

REAL  HMAG3(P1:QX,PX:QX) 

*  REAL  RDH1(P2:Q2,P2:Q2),RDSX(P2:Q2,P2:Q2),RDVX(P2:Q2,P2:Q2) 

REAL  RDH2(P:Q,P:Q) ,RDS2(P:Q,P:Q) ,RDV2(P:Q,P:Q) 

REAL  RFLH(P1:QX,PX;QX) ,RFLS (PI : QX , PX :QX ) ,RFLV(P1 : Q1 ,Pi :QX ) 

REAL  RFLX(PX:Q1,P1:QX) 

REAL  RFRH(P1:QX,P1;Q1) .RFRS(P1:QX,PX;QX),RFRV(P1:Q1,P1;Q1) 

REAL  HAVG , LAVG , VAVG , HAVGX , LAVGX , VAVGl , HAVG2 , LAVG2 , VAVG2 , XAVG 
COMPLEX  GDX(P2:Q2,P2:Q2) ,GHX(P2!Q2,P2:Q2) ,GV1<P2:Q2,P2:Q2) 

*  COMPLEX  GD2(P2:Q2,P2:Q2),GH2(P2:Q2,P2!Q2) ,GV2(P2:Q2,P2:Q2) 

COMPLEX  SH0<P1:Q1,P1:Q1),SL0(PX:QX,P1:QX),SV0(PX;QX,P1:(5X) 

*  COMPLEX  SH1(PX:01.P1:Q1) , SLX(PX :QX , PI : QX ) , SVl (PX ;QX , PI ; Ql) 

COMPLEX  SH2(PX:Ql,Pl:Ql),SL2(PX:QX,PljQX) ,SV2(PX:Q1,P1:Q1) 

COMPLEX  SH3(PX:Q1,PX;Q1) 

CHARACTER*i8  FNAMEO , FNAMEX , FNAME2 , FNAME3 , FNAME4 , FHAME5 , FNAME6 
CHARACTER*X8  FNAME7 , FNAME8 , FNAME 
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A 

AAA 

A 

AAA 

AAA 

A 

AAA 

AAA 

A 

A 

AAA 

AAA 

AAA 

A 

AAA 

AAA 

A 

AAA 

AAA 

A 

AAA 

AAA 

AAA 

A 

AAA 

AAA 

A 

AAA 

AAA 

A 


A 


A 


WRITE(*,^)  ‘ENTER  FILENAME  OF  PARAMETERS  -  FARM* 

READ(*,300)  FNAMEO 
FNAME0-‘ FARM. DAT ‘ 

WRITE ‘ENTER  FILENAME  OF  MAXIMUM_SLOPE  ARRAY  »  BETA‘ 

READ(^,300)  FNAMEl 

FNAME1“’BETA.RAE' 

WRITE ‘ENTER  FILENAME  OF  SLOPE_AZIMUTH  ARRAY  -  ALPH» 

READ (*,300)  FNAME2 

FNAME2=i‘ALFH.RAE‘ 

WRITE (*,*)  ‘ENTER  FILENAME  OF  SKYDOME_RADlANCE  ARRAY  -  LSRF‘ 

READ(*,300)  FNAME3 

FNAME3«‘LSRF.RAY» 

WRITE(*,*)  ‘ENTER  FILENAME  OF  HORZ-FOLARIZED  LSRF  =  HSRF‘ 

READ(*,300)  FNAMEA 

FNAME4=‘HSRP.RAY‘ 

WRITE(*,*)  ‘ENTER  FILENAME  OF  VERT-POLARIZED  LSRF  »  VSRF‘ 

READ(*,300)  FNAME5 

FNAME5»'VSRF.RAY* 

WRITE (*,*)  ‘ENTER  FILENAME  OF  SUBDOME^RADIANCE  ARRAY  -  LSUB* 
READ<<^,300)  FNAME6 
FNAME6=‘ LSUB. RAY ‘ 

WRTTEC*,*)  *ENTER  FILENAME  OF  HORZ-FOLARIZED  LSUB  -  HSUB‘ 

READ(*,300)  FNAME7 

FNAME7»‘HSUB.RAY‘ 

WRITE<*,*>  ‘ENTER  FILENAME  OF  VERT-POLARIZED  LSUB  »  VSUB* 
READ(*,300)  FNAME8 
FNAME8-' VSUB. RAY ‘ 

WRITEC*,*)  ‘READING  FARM . ‘ 

CALL  PLT3DINFUT(FNAME0, FARM, NTMP, -2,1) 

DO  Io-2,l 

WRITE(*,*)  (PARMd,  J)  ,  Jo-2,1) 

END  DO 

K_NYQ-PARM(-2,-2) 

DELTA_K-PARM( -2 , -1 ) 

NTMP-INT(PARM(-2,0)) 

IF  ((Nl,NE.NTMF).OR.((K_NYQ/DELTA_K).NE.FLOAT(NTMP/2)))  THEN 
WRITE(*,*)  ‘INCORRECT  PARAMETER  FILE  EN(SURF)1' 

GOTO  5 

ENDIF 
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* 


ft 


ft 

ft 

ftfift 

ft 


ft 

ft  ft  ft 

* 


ft 

ft  ft  ft 

ft 

ftftft 

A  AW 
AAA 
A 

AAA 

A 


A 

AAA 


WlKD_V»PARM(-l,-2) 

Z»PARM(-1,-1) 

WIND_AZ»PARM(-1,0) 

NTMP=INT<PARM(-1,1)) 

IF  (N.NE.NTMP)  THEN 

WRITE(*,*)  'INCORRECT  PARAMETER  FILE  [Nl(DOME)]' 

GOTO  5 

EHDIF 

THETA«PARM(0,-2) 

RANGE»PARM(0,-1) 

INDEXR=PARM(l,-2) 

INDEXI=PARM(1,-1) 

WRITE(*,*)  'READING  ARRAYS . ' 

WRITE(*,*)  'READING  BETA . ' 

CALL  PLT3DINPUT(FNAME1,BETA,NTMP,P,Q) 

IF  (Nl.NE.NTMP)  THEN 

WRITEC*,*)  'BETA  &  DEFAULT  ARRAY  SIZES  DO  NOT  MATCH' 
GOTO  5 

ENDIF 

WRITE(*,*)  'READING  ALPH . ' 

CALL  PLT3DINPUT(FNAME2,ALPH,NXMP,P,Q) 

IF  (Nl.NE.NTMP)  THEN 

WRITE(*,*)  'ALPH  &  DEFAULT  ARRAY  SIZES  DO  NOT  MATCH' 
GOTO  5 

'  •'‘IF 


"TE(*,^)  'READING  LSKY . ' 

CALL  PLT3DINPUT(FNAME3,LSKY,NTMP,P,Q) 

IF  (N.NE.NTMP)  THEN 

WRITE(*,*)  'LSKY  &  DEFAULT  ARRAY  SIZES  DO  NOT  MATCH' 
GOTO  5 

ENDIF 

WRITE(*,*)  'READING  HSKY . ' 

call  PLT3DINPUT(FNAME4,HSKY,NTMP,P,Q) 

IF  (N.NE.NTMP)  THEN 

WRITEC^^,*)  'HSKY  &  DEFAULT  ARRAY  SIZES  DO  NOT  MATCH' 
GOTO  5 

ENDIF 

MRITE(*,'^)  'READING  VSKY . ' 

CALL  PLT3DINPUT ( FNAME5 , VSKY , NTMP , P , Q) 
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A 


A 

AAA 

AAA 

A 

AAA 

AAA 

AAA 

AAA 

A 

AAA 

A 


A 

AAA 

A 


A 

AAA 

AAA 

A 

AAA 

AAA 

A 

AAA 

AAA 

A 

AAA 

AAA 

A 

AAA 

AAA 

A 

AAA 

AAA 

A 

AAA 

AAA 

A 

AAA 


IF  (N.NE.NTMP)  THEN 

WRITE('^,*)  »VSKY  &  DEFAULT  ARRAY  SIZES  DO  NOT  MATCH* 
GOTO  5 

ENDIF 

WRITE<*,*)  DREADING  LSUB . » 

CALL  PLT3DINPUT < FNAME6 , LSUB , NTMP , P , Q) 

IF  (N.NE.NTMP)  THEN 

WRITE(*,*)  »LSUB  &  DEFAULT  ARRAY  SIZES  DO  NOT  MATCH* 
GOTO  5 

ENDIF 

WRITE(*,*)  DREADING  HSUB . * 

CALL  PLT3DINPUT (FNAME7 , HSUB , NTMP , P , Q) 

IF  (N.NE.NTMP)  THEN 

WRITE(*,*)  *HSUB  &  DEFAULT  ARRAY  SIZES  DO  NOT  MATCH* 
GOTO  5 

ENDIF 

WRITE(*,*)  'READING  VSUB . * 

CALL  PLT3DINPUT(FMAME8,VSUB,NTMP,P,Q) 

IF  (N.NE.NTMP)  THEN 

WRITE(*,*)  *VSUB  &  DEFAULT  ARRAY  SIZES  DO  NOT  MATCH* 
GOTO  5 

ENDIF 


WRITE(*,’<^)  'BETA* 

IF  (N1.EQ.64)  CALL  ALPHA(BETA,6/i) 

WRITE(*,A)  *ALPH* 

IF  (N1.EQ.64)  CALL  ALPHA(ALPH, 64) 


MRITE(*,^)  *LSKY* 

IF  (N.EQ.64)  CALL  ALPHA(LSKY, 64) 

WRITE(*,*)  *HSKY* 

IF  (N.EQ.64)  CALL  ALPHA(HSKY, 64 ) 

WRITE(*,*)  *VSKY* 

IF  (N.EQ.64)  CALL  ALPHA(VSKY, 64 ) 

MRITE(*,*)  *LSUB» 

IF  (N.EQ.64)  CALL  ALPHA(LSUB , 64 ) 


WRITE(*,*)  *HSUB* 

IF  (N.EQ.64)  CALL  ALPHA(HSUB . 64 ) 


WRITE(*,*)  *VSUB* 
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A*  A 


IF  <N.EQ.6A)  CALL  ALPHA(VSUB , 64 ) 


A 

*  NOTE:  NO  SLOPE  VARIANCE  CALCULATIONS  REQUIRED  WHEN  SURFACE  IS  FLAT 

*  IE:  IF  WIND^V  -0.0  THEN  MEAN  SLOPE  «  0.0  AND  SLOPE  VARIANCE  »  0.0 

*  SLOPE  DISTRIBUTION  =»  DELTA  FUNCTION 

A 

IF  (WIND_^V.EQ.0.0)  GOTO  1 

A 

CALCULATE  ALONG-WIND,  CROSS-WIND  &  TOTAL-WIND  SLOPE  VARIANCES  ABOVE,  BELOW 

*  L  WITHIN  THE  SPATIAL  (WAVENUMBER)  FREQUENCY  RANGE  OF  THE  MODEL  SURFACE 

A 

CALL  PSVARY2(K_NYQ,N,WIND_V,Z,V1250,VARY) 

A 

*  CREATE  HIGH_K_SLOPE_DISTRIBUTION  ARRAY  «  DSTl 

*  (K_NYQ  <  K  <  INF) 

*  FOR  CORRELATION  OF  SURFACE_REFLECTED_SKYDOME  RADIANCE  AND 

*  FOR  CORRELATION  OF  SURFACE_REFRACTED_SUBDOHS  RADIANCE 

A 

WRITE(*,*)  »  * 

WRITEC*,*)  ‘CALCULATING  HIGH_K_SLOPE_DISTRIBUTIONS ‘ 

A 

DEVA»SQRT ( VARY (4,3) -VARY (3,3)) 

DEVC-SQRT ( VARY (4,2) -VARY (3,2)) 

WRITE(’^,*)  *VAR_C,DEV_C  »  ‘  ,DEVC**2,DEVC 

WRITE(*,*)  »VAR_A,DEV_A  »  * ,DEVA**2,DEVA 

DEVT=SQRT((DEVA**2)+(DEVC**2)) 

WRITE(*,*)  *VAR_TOT,DEV_TOT  -  * ,DEVT**2,DEVT 

A 

CALL  DIST_GEN(1,N,P,Q,WIND_AZ,V1250,DEVA,DEVC,D1,D2,D3,D4) 

A 

DO  IaP,Q 
DO  J»P,Q 

IF  (D3(I,J) .GT.0.0)  DST1(I,J)“D3(I, J) 

D1(I,J)«0.0 
D2(I, J)-0.0 
D3(I, J)»0.0 
D4(I,J)«0.0 

END  DO 
END  DO 

A 

*  CREATE  MID_K_SLOPE_DISTRIBUTION  ARRAY  *  DST2 

*  (DELTA_K  <  K  <  INF) 

A 

***  WRITE(*,*)  ‘  ’ 

***  WRITE(*,*)  ‘CALCULATING  MID_K_SLOPE_DISTRIBUTIONS 

A 

***  DEVAaSQRT(VARY(4,3)-VARY(2,3)) 

***  DEVC«SQRT(VARY(4,2)-VARY(2,2)) 

***  WRITE(*,*)  *VAR_C,DEV_C  -  ‘ ,DEVC^ *2,DEVC 

WRITEC*,*)  *VAR_A,DEV_A  «  ‘  ,DEVA**2,DEVA 
***  DEVTaSQRT((DEVA**2)+(DEVC*^2)) 

WRITE (*,*)  »VAR_TOT,DEV_TOT  -  ‘ ,DEVT^*2,DEVT 


AAA 


CALL  DIST_GEN(l,N,P,Q,WIND_AZ,V1250,DEVA,DEVC,Dl,D2,n3,D/O 

* 

***  DO  I-P,Q 

***  DO  J=P,Q 

IP  (D3(I,  J)  .GT.0.0)  DST2(I,  J)aD3<I,  J) 

***  Dl(I,J)-0.0 

D2(I,J)=0.0 
***  D3<I,J)«0.0 

***  D4(I,J)«0.0 

***  END  DO 

end  do 

* 

*  CREATE  FULL_K_SLOPE_DISTRIBUTION  ARRAY  -  DST2 
(0  <  K  <  INF) 

* 

* 

itlt* 
ittcit 
Thiiit 

* 

*itit 
it 

ititii 
’h’^it 
ititit 
it*ii 
itf’it 
Hit* 

•Hitik 
itii^ 
iitfh 
it 

*  CREATE  SAMPLE_K_SLOPE_DISTRIBUTION  ARRAY  »  DST4 

*  (DELTA^K  <  K  <  K_NYQ) 

A 

***  WRITE(*,*)  *  ’ 

WRITE(*,^)  'CALCULATING  SAMPLE_K_SLOPE_DISTRIBUTIONS' 

if 

*  DEVA-SQRT  <  VARY  (3,3)  -VARY  (2,3)) 

♦  DEVC-SQRT ( VARY (3,2) -VARY ( 2 , 2; ) 

WRITE(*,*)  *VAR_C,DEV_C  -  ' ,DEVC**2,DEVC 

KRXTE(*,*)  *VAR  A, DEV  A  =  * ,DEyA**2,DEVA 

*AA  DEVT«SQRT( (DEVA**2)+(DEVC**2) ) 

AAA  WRITE(*,*)  'VAR_TOT,DEV_TCT  »  ' ,DEVT**2, DEVT 

A 

***  CALL  DIST_GEN ( 1 , N , P , Q, WIND ^AZ , V1250 , DEVA, DEVC , D1 , D2 , D3 , D4 ) 


WRITE(*,*)  '  ' 

WRITE (*,*)  'CALCULATING  FULL_K_SLOPE_DISTRIBUTIONS 

DEVA»SQRT ( VARY (4,3) 

DEVC«SQRT(VARY(4,2) 

WRITE(*,*)  'VAR_C,DEV_C  «  ' ,DEVC**2,DEVC 

WRITE(*,*)  'VAR_A,DEV_A  »  ' ,DEVA**2,DEVA 

DEVT«SQRT( (DEVA**2)+(DEVC**2) ) 

WRITE(*,^)  'VAR_TOT, DEVITO  »  ' ,DEVT**2,DEVT 

CALL  DIST_GEN(1, N,P,Q,WIND_AZ,V1250, DEVA, DEVC, DX,D2,D3,D4) 

DO  I-P,Q 
DO  J»P,Q 

IF  (D3(I,J).CT.0.0)  DST3(I,J)«iD3(I, J) 

Did,  J>«0.0 
D2(I,J)=0.0 
D3(I, J)=0.0 
D4(I, J)»0.0 

END  DO 
END  DO 
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*  ft* 


DO  I=P,Q 
DO  J»P,Q 
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WRITE (*,*)  »RDS1  «  7XLTERED  ATSI' 
IF  (M2.EQ,64)  CALL  ALPHACRDSl , 64 ) 
CALL  PLT3nPILE<nDSl,N2) 


*  CALCULATE  ANGULAR  SUBSURF ACE_REFRACTED_SUBDOME_RADIANCE  DISTRIBUTIONS t 

it 

*  DCREATE  ANGULAR  POLARIZED  (KORZ  &  VERT)  UPMELLING^RADIANCE  DISTRIBUTION 
if  RELATIVE  TO  SENSOR  COORDINATES 

A 

*  CREATE  ANGULAR  SUBSURFACE_PROJECTION_ATTENUATIOH_COEFFIClENT  DISTRIBUTION 

*  RELATIVE  TO  SENSOR  COORDINATES 

* 

2)CREAT£  ATTENUATED_SUBDOME_RADIANCE  DISTRIBUTIONS 

* 

DO  I«P,Q 
DO  J»P,Q 

•it 

ATH2<I,J)»DARK1CI,J)*HSUB(I,J) 

ATV2<I,J)-DARKI(I, J)*VSUB(I,J) 

ATS2<I,J)i»ATK2(I,J)+ATV2(I,J) 

★ 

***  IF  (WIND^V.EQ.O.O)  THEN 

RDH2(I,J)«ATH2(I, J) 

RDV2(I, J)nATV2(I,J> 

RDS2(I,J)»ATS2(I,J) 

***  ENDIF 

it 

END  DO 
END  DO 

•i 

SWITCH  «  1 

IF  C SWITCH. EQ.l)  GOTO  3 

* 

***  IF  (WIND^V.EQ.O.O)  GOTO  3 

ft 

WRITEC*,^)  »ATK2  «  ATTENUATED  HORZ_POLARIZED_SUBDOME_RADIANCE' 

IP  (N.EQ.6A)  CALL  ALPHA(ATH2. 6'*) 

CALL  ?LT3DFILE(ATH2,N) 

ft 

WRITEC*,*)  'ATV2  »  ATTENUATED  VERT_POLARI2ED_SUBDOME_RADIANCE* 

IF  (N.EQ.64,)  CALL  ALPRA(ATV2,6A) 

CALL  PLT3DFILE(ATV2,N) 

ft 

WRITE(*,*)  »ATS2  -  ATTEHTUATED  TOTAL_SUBDOME_RADIANCE' 

I?  (N.EQ,64)  CALL  ALrHA(ATS2,64) 

CALL  PLT3DFILE(ATS2,N) 

ft 

if  3)  CORRELATE  SUBDOME  BY  HIGH_K_WATER_SURFACE_PILTER-D£T1  (K  >  K_NVQ) 

^  NOTEiDSTl  WAS  PREVIOUSLY  FORWARD JTRANSORMED  BY  REFLECTION  ALGORITHM 

ft 

DO  i«p,q 
DO  J«>P,Q 

GD2(I,J)*CMPLX<DST1(-I,-J),0,0) 

GH2(I,J)«CM?LX<ATH2(I,J),0.0) 

GV2(I,J)aCMPLX(ATV2(I,J),0.0) 


A-82 


END  DO 
END  DO 


CALL  FFT2D(GD2,N2,-1) 

CALL  FFT2D(GH2,N2,-l) 
call  FFT2D(GV2,N2,-1) 

DO  I-»P2,Q2 
DO  J**P2,Q2 

GH2(I,J)-«GH2(I,J)^GD2<I,J) 

GV2(I,J)»GV2<I, J)*GD2(I,J) 

END  DO 
END  DO 

call  FFT2D(GH2,N2,+1) 
call  FFT2D(GV2,K2,+1) 

TEMP«*FL0AT(N2’^N2) 

DO  I*-P2,Q2 
DO  J*P2,Q2 

t 

RDH2(I,J)-CABS(GK2(I,J))/TEMP 

RDV2 ( I , J ) “CABS (GV2 ( I , J ) ) /TEMP 
RDS2(I,J)=RDH2(I,J)+RDV2(I,  J) 
k 

END  DO 
END  DO 

* 

3  HilITE(*»*)  ’RDH2  «  FILTERED  ATH2* 

***  IF  (N2.EQ.6ft)  CALL  ALPHA(RDH2 , 6A ) 

AA*  CALL  PLT3DFILE(RDH2,N2) 

•k 

WRITE(*#’^)  *RDV2  ■>  FILTERED  ATV2* 
kkk  IF  (N2.EQ.6A)  CALL  ALPHA(RDV2, 64 > 

kkk  CALL  PLT3DFILE(RDV2,N2) 

k 

WRITE(*,’^)  *RDS2  »  FILTERED  ATS2* 
kkk  IF  (K2.EQ.64)  CALL  ALPHA(RDS2,64) 

kkk  CALL  PLT3DFILE(RDS2,N2) 

*  CALCULATE  REFLECTED  i  REFRACTED  RADIAHCE  DISTRIBUTIONS  IN  DIRECTION  OF  SENSOR 

k 

DELTA-90 . O/FLOAT (Q) 

C05THETA-C0SD (THETA) 

SINTHETAbSIND (THETA) 

*  IV1,IV2,IV3  ARE  THE  RESOLVED  CCHPONSNIS  OF  THE  SENSOR  COORDINATE  VECTOR 

* 

IVlnSINTHETA'-SIND/aSO  .0) 

IV2»SINTHETA*COSD(180.0) 

IV3"COSTHETA 
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DO  I»P1,QX 
DO  J'^P1,Q1 


COSBETA-COSD<BETA(I,J)) 

SINBETA-SIND(BETA(I,J)) 

COSALPHA«COSD(ALl*H(I»J)> 

SINALPHA-SIND(ALPH(I, J)) 

ft 

*  NV1,HV2,NV3  ARE  THE  RESOLVED  COMPONENTS  OF  THE  SURFACE  NORMAL  VECTOR 

ft 

NV1»SIHBETA*SINALPHA 

NV2«SIHBETA*COSALPHA 

NV3=COSBETA 

ft 

*  DOT  PRODUCT  OF  IV  &  NV  ■  | IV| [NVI (COSOMEGA)  «  COSOMEGA 

ft 

C0S0MEGA»(IV1*NVX)+(IV2*NV2)+(IV3ANV3) 

OMEGA«ACOSD ( COSOMEGA) 

SINOMEGA-SIHDCOMEGA) 


*  RVX,RV2,RV3  ARE  THE  RESOLVED  COMPONENTS  OF  THE  REFLECTED  SKYDOME  VECTOR 

ft 

RVX«(NVX*2 . 0*COSOMEGA) -IVX 
RV2«(NV2*2 . 0*COSOMEGA) -IV2 
RV3«(NV3*2.0*COSOMEGa)-IV3 

ft 

COSMU«RV3 

MU»AC0SD(C0SMU) 

SINMU»SIND(MU) 


ft 


I?  (MU.GT.0.0)  THEN 

NUoATAN2D(RV1,RV2) 

ELSE 


NU-0.0 

ENDIF 


C0SNU«C0SD(NU) 

SINNU»SIND(NU) 

RADIUS-MU/DELTA 

I2-INT (COSNU* (RADIUS+0 . 5 ) ) 

J2«INX(SINNU*(RADIUS+0.5)) 

I1-INT(COSALPHA*(BETA(I,J)/DELTA)+0.5> 
J1-INT'’:INALPHA*(BETA(I,  J)/DELTA)+0.5) 


RFLH(I,o)aRDHl(IX,JX) 

RX'LVd,  J)aRDVl(Il  ,JX) 

RFLSd,  J)«RPLH(I,J)+RFLV(I,J) 

RFRHd,  J)»RDy2(I)  ,J1) 
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RFRV(I,J)=RDV2(I1, Jl) 

RFRSd,  J)»RFRH(I,  J)+RFRV(I,  J) 

it 

HRAD(I,J)“RFLH(I, J)+RFRH(I, J) 
VRAD(I,J)-RFLV(I,J)+RFRV<I, J) 
LRAD(I,J)=HRAD(I, J)+VRAD<I, J) 

* 

IF  (MU. LE. 90.0)  THEN 

RFLXd,  J)»ATH1(I1,  Jl) 
NMBR(I2,J2)=NMBR(I2,J2)+1.0 
ELSEIF  (RDSKIl,  Jl)  .GT.0.0)  THEN 
REFl-REFl+1.0 
REF2-REF2+1.0 

ELSE 

REF2oREF2+1.0 

ENDIF 

* 

4  END  DO 

END  DO 

* 

TEMP-FL0AT(N1*N1) 

* 

DO  I=P1,Q1 
DO  J»P1,Q1 

it 

SH1(I, J)=CMPLX(RFLH(I, J) ,0.0) 

***  SV1(I,J)»CMPLX(RFLV(I,J) ,0.0) 

SLld,  J)«CMPLX(RFLS(I,J)  ,0.0) 

* 

HAVGlaHAVGl+RFLH (I , J ) /TEMP 
VAVGl»VAVGl+RFLVd ,  J)  /  TEMP 
LAVGl-LAVGl+RFLS (I , J ) /TEMP 

it 

***  SH2d,J)=CMPLX(RFRHd,J),0.0) 

ititit  SV2d,J)»CMPLX(RFRVd,J)  ,0,0) 

***  SL2d,  J)“CMPLX(RFRSd,  J)  ,0.0) 

it 

HAVG2-HAVG2+RFRH (I , J) /TEMP 
VAVG2aVAVG2+RFRVd ,  J)  /TEMP 
LAVG2bLAVG2+RFRS (I , J ) / TEMP 

it 

SHOd,  J)-CMPLX(HRADd,  J)  ,0.0) 

***  SVOd,  J)«CMPLX(VRADd,J)  ,C.0) 

SLOd,J)“CMPLX(LRADd,  J),0.0) 

* 

HAVG»HAVG+HRADd ,  J)  /TEMP 
VAVG-VAVG+VRAD (I , J ) / TEMP 

«  .  w  T\f  'PT?wn 

it 

SH3(I,J;-CHPLX(RFLX(I,J).0.0) 
XAVG-XAVG+RFLX ( I , J ) / TEMP 
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■ft 

* 

■k 

kkk 

k-ft-k 

k 


k 


k 


k-kk 

k 


kkk 

kkk 

k 


kkk 

kkk 

k 


kkk 

k 


kkk 

kkk 

k 


EMD  DO 
END  DO 

WRITE(*,*)  »  » 

WRITE(*,*)  'SYNTHETIC  RADIANCE  IMAGES  ' 

WRITECi^,*)  '  ' 

WRITEC*,*)  'NMBR-PIXEL  COUNTS  REFLECTING  FROM  SKYDOME  LOCATION* 
IF  (N.EQ.64)  CALL  ALPHA(NMBR,64) 

CALL  PLT3DFILE(NMBR,N) 


WRITE(*,*)  •  * 

WRITEC*,*)  *NMBR  OF  2KDARY  REFLECTORS  &  RATIO  »  * ,REF2,REF2/TEMP 
WRITE(*,*)  *(IE  PIXELS  WITH  MU  >  90.0  DEGREES)* 


WRITE(*,*)  *  * 

WRITE(*,*)  »NMBR  THAT  REFLECT  SOME  SKY  &  RATIO  »  * ,REF1,REF1/TEMP 


WRITE(*,*)  *(IE  PIXELS  WITH  90.0  DEGREES  <  MU  <  MU__MAX)  * 
WRITEC*,*)  *  * 

WRITE(*,*)  *RFLH=REFLECTED  HORZ__POLARIZED  RADIANCE* 
WRITE(*,*)  'MEAN  PIXEL  RADIANCE  »  *,HAVG1 
IF  (N1.EQ.6A)  CALL  ALPHA<RFLH, 64) 

CALL  PLT3DFILE(RFLH,N1) 


WRITEC*,^)  *  * 

WRITEC*.*)  *RFLX»RFLH  WITHOUT  SUB-RESOLUTION  FILTERING* 
WRITE(*,^)  'MEAN  PIXEL  RADIANCE  «  * ,XAVG 
IF  (N1.EQ.64)  CALL  ALPHA(RFLX, 64 ) 

CALL  PLT3DFILE(RFLX,N1) 


WRITE(*,*)  *  * 

WRITE(*,*)  'RFLV-REFLECTED  VERT_FOLARIZED  RADIANCE* 
WRITE(*,*)  'MEAN  PIXEL  RADIANCE  -  * ,VAVG1 
IF  (N1.EQ.64)  CALL  ALPHA(RFLV, 64 ) 

CALL  PLT3DPILE(RFLV,N1) 


WRITE(*,*)  *  * 

WRITE (*,*)  *RFLS*REFLECTED  TOTAL  RADIANCE* 
WRITE(’*,*)  'MEAN  PIXEL  RADIANCE  «  *,LAVG1 
IF  (N1.EQ.64)  CALL  ALPHA(RFLS , 64 ) 

CALL  PLT3DFILE(RFLS,N1) 


WRITE(*,*)  *  * 

WRITE <«,«)  * RFRK-REFRACTED  HCKZ_rOLARX2ED  RADIANCE' 
WRITE (*,*)  'MEAN  PIXEL  RADIANCE  -  ',HAVG2 
IF  (N1.EQ.64)  CALL  ALPHA(RFRH, 64 ) 

CALL  PLT3DPILE(RFRH,N1) 
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* 


Hr 


*** 

* 


Hr** 

*** 

* 


*** 

*** 

* 

*** 

* 

*** 

*** 

*** 

* 

*** 

* 

* 

* 

*** 

* 

*** 


MRITE(*,’^)  *  » 

WRITEC*,!^)  'RFRV=REFRACTED  VERT^POLARIZED  RADIANCE* 

WRITE (^,*)  *MEAN  PIXEL  RADIANCE  «  *,VAVG2 
IF  (N1.EQ.64)  CALL  ALPHA(RFRV, 64 ) 

CALL  PLT3DFILE(RFRV,N1) 

WRITE(*,*)  *  * 

WRITE (*,*)  *RFRS«REFRACTED  TOTAL  RADIANCE* 

WRITE(*,*)  *MEAN  PIXEL  RADIANCE  «  *,LAVG2 
IF  (N1.EQ.64)  CALL  ALPHA(RFRS , 64 ) 

CALL  PLT3DFILE(RFRS,N1) 

WRITE(*,*)  *  * 

WRITE *HRAD»REFLECTED  &  REFRACTED  HORZ^POLARIZED  RADIANCE 
WRITE <*,*)  *MEAN  PIXEL  RADIANCE  -  *,HAVG 
IF  (N1.EQ.64)  CALL  ALPHA(HRAD , 64 ) 

CALL  PLT3DFILE(HRAD,N1) 

WRITE(*,*)  *  * 

WRITE<*,*)  *VRAD-REFLECTED  t  REFRACTED  VERT^POLARIZED  RADIANCE 
WRITE(*,*)  'MEAN  PIXEL  RADIANCE  -  *,VAVG 
IF  (N1.EQ.64)  CALL  ALPHA(VRAD , 64 ) 

CALL  PLT3DFILE(VRAD,N1) 

WRITE(*,*)  *  ' 

WRITE (*,*)  'LRAD-REFLECTED  &  REFRACTED  TOTAL  RADIANCE* 

WRITE (*,*)  'MEAN  PIXEL  RADIANCE  «  ',LAVG 
IF  (N1.EQ.64)  CALL  ALPHA(LRAD , 64 ) 

CALL  PLT3DFILE(LRAD,N1) 

CALL  FFT2D(SL1,N1,-1) 

CALL  FFT2D(SH1,N1,-1) 

CALL  FFT2D(SV1,N1,-1) 

CALL  FFT2D(SL2,N1,-1> 

CALL  FFT2D(SH2,N1»-1) 

CALL  FFT2D(SV2,N1,-1) 

CALL  FFT2D(SL0,N1,-1) 

CALL  FFT2D(SH0,N1,«-X) 

CALL  FFT2D(SV0,N1,-1) 

CALL  FFT2D(SH3,N1,-1) 

DO  I-P1,Q1 
DO  J«P1,Q1 


HMAGl (I  *  J) -CABS( SHI ( T , J) > /TEMP 
VMAGKI,  J)*iCABS(SVl(I,J))/TEMP 
LMAGl < I , J ) "CABS ( SLl ( I , J ) ) /TEMP 

HMAG2(I,J)-CABS(SH2(I,J)>/TEMP 
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Art* 

AAA 

A 

AAA 

A 

A 

A 

A 


AAA 

AAA 

AAA 

AAA 

A 


AAA 

AV/A 

AAA 

AAA 

A 


AAA 

AAA 

AAA 

AAA 

A 


AAA 

AAA 

AAA 


VMAG2(I, J)«CABS(SV2(I,J))/TEMP 
LMAG2(I,J)=CABS<SL2(I,J))/TEMP 

HMAGOd,  J)-CABS(SHO(I,J))/TEMF 
VMAGOCI, J)=CABSCSVO(I, J) )/TEMP 
LMAGOd,  J)=CABS(SLO(I,  J)  )/TEMP 

HMAG3d,  J)«CABS(SH3d,J))/TEMP 

END  DO 
END  DO 

MRITE(*,*)  »  ’ 

WRITE ’FORWARD  TRANSFORMS  OF  RADIANCE  IMAGES* 

WRITE(’*',^)  *HMAG1»  HORZ/REFLECTED  RAD  MAG  SPECTRUM* 
TEMP«HMAG1(0,0) 

WRITE(*,*)  *HMAG1(0,0)  «  *,HMAG1(0,0) 

HMAG1(0,0)-0.0 

IF  (H1.EQ.6A)  CALL  ALPHA(HMAG1 , 64 ) 

HMAG1(0,0)«TEMP 

FNAME=*HMAG1.RAD* 

CALL  PLT3D0UTPUT ( FNAME , HMAGl , Ni , PI , Ql) 

CALL  PLT3DFILE(HMAG1,N1) 

WRITE(*,*)  ’HMAG3-  HMAGl  WITHOUT  SUB-RESOLUTION  FILTER* 
TEMP=HMAG3(0,0) 

WRITE<*,*)  »HMAG3(0,0)  »  *,HMAG3(0,0) 

HMAG3(0,0)«0.0 

IF  (N1.EQ.64)  CALL  ALPHA(HMAG3, 64) 

HMAG3( 0,0) -TEMP 
FNAME- *HMAG3. RAD* 

CALL  PLT3D0UTPUT (FNAME , HMAG3 , HI , PI , Q1 ) 

CALL  PLT3DFILE(HMAG3,N1) 

WRITE(*,*)  *LMAG1«  TOTAL /REFLECTED  RAD  MAG  SPECTRUM* 
TEMPaLMAGl(0,0) 

WRITE(*,*)  *LMAG1(0,0)  -  »,LMAG1(0,0) 

LMAGl(0,0)-0.0 

IF  (N1.EQ.64)  CALL  ALPHA(LMAG1,64) 

LMAG1(0,0)»TEMP 

FNAMEa’LMAGl.RAD* 

CALL  PLT3D0UTPUT(FNAME,LMAG1,N1,P1,Q1) 

CALL  PLT3DFILE<LMAG1,H1) 

WRITE<*,*)  *HMAG0-  HORZ/REFL  &  REFR  RAD  MAG  SPECTRUM' 
TEMPaHMAGOCO.O) 

WRITE(*,*)  *HMAG0(0,0)  «  *,HMAG0(0,0) 

HMAGO(0,0)-0.0 

IF  (N1.EQ.64)  CALL  ALPHA(HMAG0 , 64 ) 

HMAGO(0,0)-TEMP 
FNAME- *HMAC0. RAD* 
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AAA 
A  A  A 
AAA 

AAA 

A 

5 

300 

1000 


CALL  PLT3DOUTPUT (FNAME , HMAGO , N1 , PI , Q1 ) 

CALL  PLT3DFILE(KMAG0,N1) 

WRITE(’»f,*)  »LMAG0a  TOTAL/REFL  &  REFR  RAD  MAG  SPECTRUM' 
TEMP-LMAG0(0,0) 

WRITE(*,*)  'LMAG0<0,0)  -  ',LMAGQ(0,0) 

LMAG0(0,0)»0.0 

IF  (N1.EQ.64)  CALL  ALPHA(LMAG0 , 64 ) 

LMAG0(0,0)bTEMP 

FNAMEo'LMAGO.RAD' 

CALL  PLT3D0UTPUT (FNAME , LMAGO , N1 , PI , Q1 ) 

CALL  PLT3DFILE(LMAG0,N1) 

GOTO  1000 

WRITEC^^,*)  'BAD  FILE  OPENING' 

FORMAT  (A) 

END 
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PROGRAM  ANALYS 


vv  ANALYSIS  PROGRAM  FOR  THE  GENERATION  AND  ANALYSIS  OF  2D  DIFFERENCE 

*  SPECTRA 

Ar 

IMPLICIT  NONE 

INTEGER  I,I1,I2,INV, J,J1, J2,KINT,N,N1,N2,NTMP,P,PHINT,P1,P2,Q,Q1,Q2,R 

PARAMETER(N»64,P«-N/2,Q«N/2-l,R«Q+l) 

PARAMETER(Nl»64,Pl=-Ni/2,Ql«Nl/2-l) 

PARAMETER(N2a64,P2»-N2/2,Q2-N2/2-l) 

REAL  ANGO , ANGI , COSAl , COSA2 , K , L , M, KMAG , DELTA_K , DELTA^PHI , PI , SINAI , SINA2 

REAL  DAT1,DAT2,DAT3,DAT4,DAT5 

REAL  DATHl , DATLl , DATHO , DATLO , DATH3 , DATSO 

REAL  DST1(P:Q,P:Q) 

REAL  HIGH, LOW, FACTOR 

REAL  FACTORl , FACTOR2 , FACTOR3 , FACTOR4 , FACTORS 
REAL  PARM(-2:1,-2:1),V1250 

REAL  K^NYQ, PHI, PHII,PHI2, RADIUS, RANGE, TEMP, TEMPI, WIND_V,WIND_AZ,Z 
REAL  HMAG0(P1:Q1,PI:Q1) ,LMAG0(P1;Q1,P1:Q1) ,VMAG0(P1;Q1,P1;Q1) 

REAL  HMAG1(P1:Q1,P1:Q1),LMAG1(P1:Q1,P1:Q1) ,VMAG1<P1:Q1,P1:Q1) 

REAL  SL0PE(P1:Q1,P1:Q1>,LMAG2(P1:Q1,P1;Q1) ,VMAG2(P1:Q1,P1:Q1) 

REAL  HMAG3(P1:Q1,P1:Q1) 

REAL  D1KH1(1:R,2),D1KLI(1:R,2) 

REAL  D1KHO(1:R,2),D1KLO(1:R,2) 

REAL  D1KH3(1:R,2) 

it 

REAL  SLP0(-90:90,2) 

It 

REAL  D1PH1("90:+90,2),D1PL1(-90:+90,2) 

REAL  DlPH0(-90:+90,2),DlPL0(-90:+90,2) 

REAL  DlPH3(-90:+90,2) 

REAL  DlFHl(-90:+90,2) ,DlFLl(-90:+90,2) 

REAL  DlFH0(-90:+90,2) ,D1FLO(-90:+90,2) 

REAL  D1FH3  ( -90 :  +90 , 2)  ’***' 

REAL  D2H1<P:Q,P:Q),D2L1(P:Q,P:Q) 

REAL  D2H0(P:Q,P:Q),D2L0(P:Q,P;Q) 

REAL  D2H3(P:Q,P:Q) 

REAL  DIFA1,DIFC1,DIFS1 
REAL  DIFA2,DIFC2,DIFS2 
REAL  DIFA3,DIFC3,DIFS3 
REAL  DIFA4,DIFC4,DIFS4 
REAL  DIFA5,DIFC5,DIFS5 
REAL  DIFX1,DIFY1 
REAL  DIFX2,DIFY2 
REAL  DIFX3,DIFY3 
REAL  DIFX4,DIFY4 
REAL  DIFX5,DIFY5 
REAL  VARA0,VARC0,VARS0 
REAL  VARA1,VARC1,VARS1 
REAL  VARA2,VARC2,VARS2 
REAL  VARA3,VARC3,VARS3 
REAL  VARA4,VARC4,VARS4 
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REAL  VARA5,VARC5,VARS5 
REAL  VARXO,VARYO 
REAL  VARX1,VARY1 
REAL  VARX2,VARV2 
REAL  VARX3,VARY3 
REAL  VARX4, VARYA 
REAL  VARX5,VARY5 

REAL  VARXX 

REAL  DVRA1,DVRC1,DVRS1 
REAL  DVRA2,DVRC2,DVRS2 
REAL  DVRA3,DVRC3,DVRS3 
REAL  DVRAA,DVRCA,DVRSA 
REAL  DVRA5,DVRC5,DVRS5 

COMPLEX  GD1(P2:Q2,P2:Q2) ,GH1<P2:Q2,P2:Q2) ,GV1(P2;Q2,P2:Q2) 
COMPLEX  GD2(P2:Q2,P2:Q2) ,GH2<P2:Q2,P2:Q2),GV2(P2:Q2,P2:Q2) 
COMPLEX  SH0(P1:Q1,P1:Q1) ,SL0(F1:Q1,P1:Q1) ,SV0(P1:QX,P1:Q1) 
COMPLEX  SH1(P1:Q1,P1;Q1) ,SL1(P1:Q1,P1:Q1),SV1<P1:QX,P1:Q1) 
COMPLEX  SH2(P1:Q1,P1:Q1) ,SL2(PI:Q1*P1:Q1) ,SV2(P1:Q1,P1:Q1) 
COMPLEX  SH3(Pl:qi,Pl:Ql) 

CHARACTER*18  FNAMEO , FHAMEl , FNAME2 , FHAME3 , FMAMEA , FNAME5 , FNAME6 
CHARACTER*18  FNAME7 , FKAME8 , FNAME 

PI-3.1A1593 

FNAMEO**' FARM.  DAT* 

FNAME1«»'HMAG1.RAD' 

FHAME2« ' LMAGl . RAD ' 

FRAMES**' HMAGO, RAD* 

FNAMEA-'LMAGO.RAD' 

FNAME5«'KMAG3.RAD' 

FRAMES- 'TSLOPE.RAE' 

CALL  PLT3DINPUT ( FNAMEO , FARM , NTMP ,-2,1) 

DO  1—2,1 

WRITEC*,*)  (PARM(I,J),Je*-2,l) 

END  DO 

K_NYQ*»PARM(-2,-2) 

DELTA__K«PARM(-2,-l) 

NTMP-INT(PARM(-2,0) ) 

IF  ((Nl.NE.NTMP)..0R.((K_NYQ/DELTA_K).NE.FL0AT(NTMP/2)))  THEN 
WRITE(*,*)  'INCORRECT  PARAMETER  FILE  [N(SURF))' 

GOTO  5 

ENDIF 

WIND_AZ-PARM(-1,0) 

NTMP-INT(PARM(-1,1)) 
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A 


it 


* 


* 

•kftir 

itfti/t 

A 

'ftft'fr 

it 

itilfi 

itiiii 

it 

A  A* 
AAA 
A 

AAA 

AAA 

A 

AAA 

AAA 

A 

A 

A 


IP  (N.NE.HTMP)  THEM 

WRITE(*,*)  'INCORRECT  PARAMETER  FILE  [Nl(DOME)]* 
GOTO  5 

ENDIF 

MRITEC*,*)  'READING  ARRAYS . ' 

CALL  PLT3DINPUT(FNAME1,HMAG1,NTMP,P,Q) 

CALL  PLT3DINPUX(FNAME2,LMAG1,NTMP,P,Q) 

CALL  PLT3DINPUT (FNAME3 , HMAGO , NTMP , P , Q ) 

CALL  PLT3DINPUT ( FNAME4 , LMAGO , NTMP , P , Q ) 

CALL  PLT3DINPUT(FNAME5,HMAG3,NTMP,P,Q) 

CALL  PLT3DINPUT(FNAME6, SLOPE, NTMP, P,Q) 

DAT1-HMAG1(0,0) 

DAT2»LMAG1(0,0) 

DAT3»HMAG0(0,0) 

DATAoLMAG0(0,0) 

DATS«HMAG3r^ 

EMAG1(0,0)«0. : 

LMAG1(0,0)«0.0 

HMAG0(0,0)«0.0 

LMAG0(0,0)-0.0 

HMAG3(0,0)-0.0 

WRITE 'HMAGl' 

IF  (M1.EQ.64)  CALL  ALPHA(HMAG1,64) 

WRITE <*,^)  'LMAGl* 

IF  (N1.EQ.64)  CALL  ALPHA(LMAG1 , 64 ) 

WRITE (*,*)  'HMAGO' 

IF  (N.EQ.64)  CALL  ALPHA(HMAGO , 64 ) 

WRITE(*,*)  'LMAGO' 

IF  (N.EQ.64)  CALL  ALPHA(LMAGO , 64) 

WRITE (*,*)  'HMAG3' 

IF  (N.EQ.64)  CALL  ALPHA(HMAG3,64) 

WRITE (*,^)  'SLOPE' 

IF  (N.EQ.64)  CALL  ALPHA(SLOPE, 64 ) 

WRITE (*,*)  'HMAGl' 

IF  (N1.EQ.64)  CALL  ALPHAS(HMAG1, 64, DATHl, LOW, FACTOR) 
WRITE' ‘LMAGl* 

IF  (N1.EQ.64)  CALL  ALPHAS(LMAGl , 64 ,DATL1 , LOW, FACTOR) 
WRITE (*,*)  'HMAGO' 

IF  (N.EQ.64)  CALL  ALPHAS (HMAGO , 64 ,DATH0 , LOW, FACTOR) 
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WRITE <*,*)  »LMAGO* 

IF  (N.EQ.64)  CALL  ALPHAS ( LMAGO, 6A ,DATLO, LOW, FACTOR) 
WRITE (*,*)  »HMAG3» 

IF  (N.EQ.64)  CALL  ALPHAS ( HMAG3 , 64 , DATH3 , LOW, FACTOR) 
WRITE (*,*)  ’SLOPE* 

IF  (N.EQ.64)  CALL  ALPHAS ( SLOPE, 64 , DATSO , LOW, FACTOR) 

FACTOR1«DATSO/DATH1 
FACTOR2-DATSO / D ATLl 
FACTOR3-DATSO / DATHO 
FACTOR4-DATSO/DATLO 
FACTOR5-D ATS  0 / DATH3 

DO  I=P,Q 
DO  J»P,Q 

HMAGl ( I , J) »HMAG1 ( I , J) *FACTORl 
LMAGl  ( I ,  J  )  aLMAGl  ( I ,  J  )  ’^FACTORa 
HMAGO ( I , J ) «HMAG0 ( I , J ) ^FACTORS 
LMAGO ( I , J ) oLMAGO ( I , J ) *FACTOR4 
HMAG3 ( I , J ) =HMAG3 ( I , J ) ^FACTORS 

D2H1(I,J)»SL0PE(I,J)-HMAG1(I, J) 

D2I l(I,J)«SLOPE(I,J)-LMAGX(I, J) 

D2H0(I, J)»SLOPE(I, J)-HMAG0(I, J) 

D2L0(I, J)-SLOPE(I,J)-LMAGO(I, J) 
D2H3(I,J)«SLOPE(I,J)-HMAG3(I,J) 

END  DO 
END  DO 

WRITEC*,*)  *2D  DIFFERENCE  SPECTRA' 

WRITE(*,*)  '  ' 

WRITE (*,^)  'D2Hl»SLOPE-HMAGX’ 

WRITE(*,*)  'MEAN  PIXEL  RADIANCE  -  ',DATX 
WRITE (*,^)  'FACTORl  =  ',FACTORX 

I?  (N.EQ.64)  CALL  ALPHA(D2HX , 64 ) 

CALL  PLT3DFILE(D2HX,N) 

WRITE(*,*)  '  ' 

WRITE(*,^)  'D2L1-SL0PE-LMAGX' 

WRITE(’*,*)  'MEAN  PIXEL  RADIANCE  »  ',DAT2 
WRITE (*,*)  'FACTOR2  «  ',FACT0R2 

IF  (N.EQ.64)  CALL  ALPHA(D2LX , 64 ) 

CALL  PLT3DFILE(D2LX,N) 

WRITE(*,*)  *  ' 

WRITS(*,*)  'D2HO-SLOPE-HMAGO' 

WRITE(*,*)  'MEAN  PIXEL  RADIANCE  «  »,DAT3 
WRITE (*,•♦)  'FACTORS  -  FACTORS 
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IF  (N.EQ.6A)  CALL  ALPHA(D2H0 , 6A ) 

CALL  PLT3DFILE(D2H0,N) 

WRITEC*,*)  *  » 

WRI TE ( * , * )  » D2LO«SLOPE-LMAGO ' 

WRITE (*,*)  ’MEAN  PIXEL  P^DIANCE  » 

WRITE (*,*)  ’FACTOR4 
IF  (N.EQ.6A)  CALL  ALPHA(D2L0 , 64 ) 

CALL  PLT3DFILE(D2L0,H) 

WRITE(*,^)  ’  ’ 

WRITE(*,*)  ’D2H3-SLOPE-HMAG3’ 

WRITEC*',*)  'MEAN  PIXEL  RADIANCE  » 

WRITE  'FACTORS 

IF  (N.EQ.64)  CALL  ALPHA(D2H3 , 64 ) 

CALL  PLT3DFILE(D2H3,N) 

DO  IaP,Q 
DO  J“P,Q 

L«FLOAT(I) 

M»FLOAT(J) 

KMAG«SQRT( (L**2)+(M**2) ) 

KINTaINT(KMAG+0.5) 

K»KMAG*OELTA_K 

IF  ((K.EQ.0.0) ,OR. (XINT.GT.R))  GOTO  10 

ANC0*ATAN2D(M,L> 

ANG1«WIND_A2-ANG0 

IF  (ABS<ANGO) .LE.90.0)  THEN 

PHINT«INT ( ANGO tSIGN (0.5, ANGO ) ) 

ELSE 

PHINTaINT((ANG0-SIGN(18C.0,AWGC))-SIGN< 0.5, ANGO)) 

ENDIF 

IF  (ABS(PHINT)  .CT.90.0)  WRT.TEC*,'^)  ’PHINT.GT.+/-  90.0* 

COSA1»COSD<ANGO)^*2 
SINA1-SIND(ANG0)**2 
C0SA2aC0SD(ANGl)**'2 
SIHA2«SIND ( ANGl ) **2 

TEMP" ( SLOPE ( I , J  >  *  *  2 )  ( BELT A_K*  *  2 ) 

V/RS0«VARS0+TEMP 

VARAO«VARAO+TEMP*COSA2 

VARC0-VaRC0+TBM?*SINA2 

VARXOoVARXO+TEM?*COSAi 

VARYO»VARYO+*rEMP*SINAl 

TEMP-  (  HKACl  (  T ,  J  )  *«  2  )  •♦  (  DELT  A_K*  2  ) 


’,DAT4 

»,FACT0R4 


' ,DAT5 
’ , FACTORS 
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TEMP1-(D2H1(I, J)*^2)*(DELTA_K**2) 

VARSl-VARSl+TEHP 

VARA1=«VARA1+TEMP^C0SA2 

VARC1«VARC1+TEMP*SINA2 

VARX1=VARX1+TEMP*C0SA1 

VARY1=VARV1+TEMP^SINA1 

DIFX1»DIFX1+TEMP1*C0SA1 

DIFY1=DIFY1'+TEHP1*SINA1 

DIFS1«DIFS1+TEMP1 

DIFAi»DIFAl+TEMFl’*fC0SA2 

DIFC1«DIFC1+TEMP1*SINA2 

D1KH1(KINT,2)»D1KHX(KINT,2)+<TEMP1/DELTA_K) 

D1PH1(PHIMT,2)»D1PH1(PHINT,2)+(TEMP1/DELTA_K) 

D1PH1(PHINT,1)-D1PH1(PHINT,1)+1.0 

TEMP»(LMAGi(I, J)*^2)*(DELTA_X**2) 

TEMP1»(D2L1(I,J)**2)*(DELTA_K**2) 

VARS2-VARS2+TEMP 

VARA2«VARA2+TEMP’^C0SA2 

VARC2«VARC2+TEMP*SIHA2 

VARX2-VARX2+TEMP*G0SA1 

VARV2-VARY2+TEMP*SIHA1 

DIFX2oDIFX2+TEKPl*C0SAl 

DIFY2«DIFy2+TEMPl*SIKAl 

DIFS2-DIFS2+TEMP1 

DtFA2«*DIFA2+TEMPl*C0SA2 

DIFC2»CIFC2+TEMP1*SINA2 

D1XUCKINT,2>«D1KL1(KIHT,2)  +  <TEMP1/DELTA_K) 

D1PL1(PHINT,2)»D1PL1(PHINT,2>+(TEMPX/DELTA_K) 

D1PL1(PHINT,1)»D1PL1(PHIHT,1)+1.0 

TEMP*(HMAG0(I,J)**2)*(DELTA_K**2) 

TEM?1«(D2H0<I, J)**2)*(DELTA_K**2) 

VARS3-VARS3+TEMP 

YARA3«VARA3rTEMP^COSA2 

VARC3*VARC3+TEMP*SIWA2 

VARX3-VARX3+TEMP*COSAi 

VARV35»VARy3+TEK?*SINAl 

DIFX3"DIFX3tXSKP1*COSA1 

DIFY3*«D1FY3+TEMP1*SINA1 

DIFS3«DIFS3+TEMPi 

DXFA3»DIFA3+TEMP1*C0SA2 

DI?C3«DIFC3+TEMPX*SINA2 

01Ka0(X'lHT,2i-DXXH0(KINT,2)  +  (TEMPl/DELTA_,K) 
151PH0(?HIMT,2)*D1PK0<?HINT,2)  +  (YEMP1/DELTA^K) 
DiPH0(PHIKT,l>-DlPa0<PaiNT,i)4*X.0 

TEMP»aMAC0<I,J)**2)*(DELTA_K**2) 

TEMPi*»(D2L0(I,J)**2)«(DELTA_K**2) 

VARSA5VARS4+TEM? 

VARA6«VARA4+XEM?*C0SA2 

VARCA-VARC4+TEMP*SIMA2 
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VARX4»VARX4+TEMP*C0SA1 

VARY  4 -VARY 4  +T EMP *  S I N A 1 

DIFX4«DIFX4+TEMP1*C0SA1 

DIFY4aDIFY4+TEMPl*SINAl 

DIFS4-DIFS4+TEMP1 

DIFA4«DIFA4+TEMP1*C0SA2 

DIFC4-DIFC4+TEMP1*SINA2 

D1KL0(KINT,2)-D1KL0(KINT,2)+(TEMP1/DELTA_K) 

D1PL0(PHINT,2)=D1PL0(PHINT,2)+(TEMP1/DELTA_K) 

DIPLO (PHINT , 1 )=D1PL0 (PRINT , 1 )+l . 0 
TEMP- (HMAG3 ( I , J) ^*2) * (DELTA_K**2 ) 

TEMP1»(D2H3(I,  J)**2)*(DELTA_K’^*2) 

VARS5-VARS5+TEMP 

VARA5-VARA5+TEMP*C0SA2 

VARC5-VARC5+TEMP*SINA2 

VARX5«VARX5+TEMP*C0SA1 

VARY5«VARY5+TEMP*SINA1 

DIFX5-DIFX5+TEMP1*C0SA1 

DIFY5-DIFY5+TEMP1*SINA1 

DIFS5-DIFS5+TEMP1 

DIFA5-DIFA5+TEMP1*C0SA2 

DIFC5«DIFC5+TEMP1*SINA2 

D1KH3(KINT,2)-D1KH3(KINT,2)+<TEMP1/DELTA_X) 
D1PH3 (PHINT, 2) -D1PH3 (PHINT, 2) + (TEMPI /DELTA^K) 
D1PH3 (PHINT, 1)»D1PH3 (PHINT, 1)+1.0 

END  DO 
END  DO 

DO  I“1,R 

DlKHl (1,1) -float ( 1 ) *DELTA_K 
DlKLl (1,1) -FLOAT ( I ) *DELTA_K 
DIKHO ( I , 1 ) -FLOAT ( I ) *DELTA_K 
DIKLO ( I , 1 ) -FLOAT ( I ) *DELTA_K 
D1KH3 (1,1) -FLOAT ( I ) *DELTA_K 

END  DO 


DO  I— 90, +90 

D1FH1(I,1)-FL0AT(I) 

D1FL1<I,1)«FL0AT(I) 

D1FHO(I,1)-FLOAT(I) 

DlFLO(I,i)-FLOAT(I) 

D1FH3(I,1)-FL0AT(I) 


IF  (01?H1(I,1).GT.0.0) 
IF  (D1PL1<I,1) .GT.0.0) 

^  4  f* 

JUt  t  M  t  *'^*  •  ^  •  **  f 

IF  (D1?L0(I,1) .CT.0.0) 
IF  (DlPH3(I.i).GT.O,0) 


DlPHl(I,2)-DlPHl(I,2)/DlPKlfI,l) 
01PL1(I,2)«D1PL1(I,2)/D1?L1(I,1) 
Dl?H0(I,2)“DiPH0( 1,2) /P1?H0(I .1) 
DlPi,0(X,2)»DXPLO(I,2)/Dl?L0<I,l) 
DIPH3(I,2)=01PK3(I,2)/D1PH3(I,1) 


END  DO 
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DO  1—90, +90 


IF  ((I.GT.-89) .AND. (I.LT.89)) 
D1FH1(I,2)»(D1PHI(I-1 
D1FL1(I,2)«(D1PL1(I-1 
D1FH0(I,2)-(D1PH0(I-1 
DlFL0(I,2)a(DlPL0(I-l 
D1FH3(I,2)=(D1PH3(I-1 
ELSEIF  <I.EQ.-90)  THEN 

DlFHl(I,2)«(DlPHl(+89 
DlFLl(I,2)»(DlPLl(+89 
DlFHO(I,2)«(DlPHO(+89 
DlFL0(I,2)»(DlPL0(+89 
DlFH3(I,2)a(DlPH3(+89 
ELSEIF  (I.EQ.+90)  THEN 

D1FH1(I,2)»(D1PHX(I-1 

D1FL1(I,2)-(D1PL1(I-1 

D1FH0(I,2)«<D1PH0(I-1 

DlFL0(I,2)a(DlPL0(I-l 

DlFH3(I,2)«(r"’''»3<I-l 

ENDIF 


,2)+DlPHl(I,2)+DlPHX(I+l,2))/3.0 
,2)+DXPLX(I,2)+DXPLX(I+l,2))/3.0 
,2)+DXPH0(I,2)+DXPH0<l+X,2) ) /3.0 
,2)+DXPL0<I,2)+DXPL0(I+l,2))/3.0 
,2)+DXPH3(I,2)+DXPH3(I+l,2))/3.0 

,2)+DXPHX(X,2)+DXPHX(I+X,2))/3.0 

,2)+DX?LX(I,2)+DXPLX(I+X,2))/3.0 

,2)+DXPH0(I,2)+DXPH0(I+l,2))/3.0 

,2)+DXPL0(I,2)+DXPL0(I+X,2))/3.0 

,2)+DXPH3(I,2)+DXPH3(l+X,2))/3.0 

,2)+DXPHX(I,2)+DXPHX(-89,2))/3.0 

,2)+DXPLX<I,2)+DlPLX(-89,2))/3.0 

,2)+DXPH0(I,2)+DXPH0(-89,2))/3.0 

,2)+DXPL0(I,2)+DXPL0(-89,2))/3.0 

,2)+DlPH3(I,2)+DXPH3(-89,2))/3.0 


END  DO 


WRITE<*,*)  * 
MRITE(*,*>  ' 


PARAMETERS* 

» ,PARM(-2,-2),PARM(-2,-X),PARh(-2,0),PARM<-2,l) 


WRITE(*,*)  * 


* ,PARM(-l,-2) ,PARM<-X,-X) ,PARM(-X,0),PARM<-X,X) 


WRITE(*,*)  * 


* ,PARM(+0,-2),PARM(+0,-l),PARM<+0,0) ,PARM(+0,1) 


MRITE<*,*)  * 
WRITEC*,*)  *  ' 


* ,PARM(+1,-2),PARM(+X,-X),PARM(+X,0),PARM(+X,X) 


WRITEC*,*)  * 
MRITEC*,*)  ' 
WRITEC*,*)  * 
WRITEC*,*)  * 
WRITEC*,*)  ' 
WRITEC*,*)  ' 
WRITEC*,*)  ' 


MAGNITUDE  ARRAY  SCALING  FACTORS* 

HI C  0 , 0 ) , HIGH , FACTOR » , DATX , DATHX , FACTORX 
LX  C  0 , 0 ) , HIGH , FACTOR  * , DAT2 , DATLX , FACTOR2 
HO  C  0 , 0 ) , HIGH , FACTOR  * , DAT3 , DATHO  ^  FACTORS 
LO  C  0 , 0 ) , HIGH , FACTOR  * , DATA , DATLO , FACTORA 
H3  C  0 , 0 ) , HIGH , FACTOR  * , DATS , DATH3 , FACTORS 


WRITEC*,*)  * 
WRITEC*,*)  ' 
WRITEC*,*)  ' 
WRITEC*,*)  ' 
WRTTEC*,*)  * 
WRITEC*,*)  ' 
WRITEC*,*)  ' 
WRITEC*,*)  *  * 


INTEGRATED  VARIANCE  FROM  POWER  SPECTRA* 

VAR  SO  A,C,S* ,VARAO,VARCO,VARSO 

VAR  HI  A,C,S* ,VARAX,VARCX,VARSX 

VAR  LX  A,C,S* ,VARA2,VARC2,VARS2 

VAR  HO  A,C.S* ,VARA3,VARC3,VARS3 

VAR  LO  A,C,S* ,VARAA,VARCA,VARS4 

VAR  H3  A,C,S* ,VARA5,VARC5,VARS5 
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WRITE(*,*)  » 
WRITE(*,*)  * 
WRITE<*,^)  ' 
WRITE(*,*)  * 
WRITE(*,^)  » 
WRITEC*,*)  ' 
WRITE(*,^)  *  * 

WRITE(*,*)  * 
WRITE(A,*)  » 
WRITE(^,*)  ' 
WRITE(*,^)  » 

WRITE(*,*)  * 

* 

WRITE(*,*)  *  ' 

* 

WRITE(*,*)  ' 
WRITE(*,A)  * 
WRITE(*,*)  * 
WRITE(*,*)  * 
WRITE(*,’^)  * 
WRITE(*,*)  *  * 

*  WRITE  DATA  TO  FILE 


VAR  SO  X,Y,S* ,VARXO,VARVO,VARSO 
VAR  HI  X,Y,S',VARXl,VARyi,VARSl 
VAR  LI  X,Y,S’ ,VARX2,VARV2,VARS2 
VAR  HO  X,Y,S* ,VARX3,VARY3,VARS3 
VAR  LO  X, Y, S' ,VARXA, VARYA, VARS4 
VAR  H3  X,Y,S',VARX5,VARY5,V/ 


INTEGRATED  SQUARED  DEVIATION  FROM  DIF  SPECTRA* 

DIF  HI  A,C,S* ,DIFA1,DIFC1,DIFS1 

DIF  LI  A,C,S* ,DIFA2,DIFC2,DIFS2 

DIF  HO  A,C,S* ,DIFA3,DIFC3,DIFS3 

DIF  LO  A,C,S* ,DIFAA,DIFCA,DIFSA 

DIF  H3  A,C,S* ,DIFA5,DIFC5,DIFS5 


DIF  HI  X,Y,S* ,DIFX1,DIFY1,DIFS1 
DIF  LI  X,Y,S*,DIFX2,DIFY2,DIFS2 
DIF  HO  X,Y,S* ,DIFX3,DIFY3,DIFS3 
DIF  LO  X,Y,S* ,DIFXA,DIFYA,DIFSA 
DIF  H3  X,Y,S* ,DIFX5,DIFY5,DIFS5 


WRIXEC*,*)  ’ENTER  FILENAME  TO  CONTAIN  STATISTICS* 
READ(^,300)  FNAMEO 

OPEN ( 1 , FILE-FNAMEO , STATUS- ' NEW  * , ERR»5 ) 


WRITE (1,*)  *  * , FNAMEO 

WRITEd,*)  *  * 

WRITE (1,^)  *  PARAMETERS* 

WRITE(l,v^)  *  »  ,PARM<-2,-2),PARM(-2,-l)  ,PARM(-2,0),PARM(-2,1) 


WRITECl,*)  *  *  ,PARM(-l,-2)  ,PARM(-1,-1)  ,PARM(-1,0),PARM(*-1,1) 


WRITEd,^)  *  *  ,PARM(+0,-2),PARM(+0,-l),PARM(+0,0),PARM<+0,l) 


WRITEd,*)  »  ’  ,PARM(+l,-2),PARM(+l,-l),PARM(+i,0),PARM(+l,l) 

WRITEd,*)  *  * 

WRITEd,*)  *  MAGNITUDE  ARRAY  SCALING  FACTORS* 

WRITE  d , *  >  *  HI ( 0 , 0 ) , HIGH , FACTOR  * , DATl , DATHl , FACTOR! 

WRITEd,*)  *  L1(0,0), HIGH, FACTOR*  ,DAT2,DATL1,FACT0R2 

WRITEd,*)  '  H0(0,0) , HIGH, FACTOR*  ,DAT3,DATHO, FACTORS 

WRITE  d , * )  *  LO ( 0 , 0 ) , HIGH , FACTOR  * , DAT4 , DATLO , FACTORS 

WRITS (1 , * )  *  H3 ( 0 , 0 ) , HIGH , FACTOR  * , DAT5 , DATH3 , FACTORS 

WRITEd,*)  *  * 

WRITEd,*)  *  INTEGRATED  VARIANCE  FROM  POWER  SPECTRA* 

WRITEd,*)  '  VAR  SO  A,C,S' ,VARA0,VARC0,VARS0 

WRITEd,*)  '  VAR  HI  A,C,S*  ,VARA1,VARC1,VARS1 
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WRITEd,*)  * 
WRITEd,’^)  » 
WRITEd,*)  * 
WRITEd,*)  » 
MRITEd,’^)  »  » 


VAR  LX  A,C,S* ,VARA2,VARC2,VARS2 
VAR  HO  A,C,S» ,VARA3,VARC3,VARS3 
VAR  LO  A,C,S* ,VARAA,VARC4,VARS4 
VAR  H3  A,C,S* ,VARA5,VARC5,VARS5 


WRITEd,*)  ' 
MRITEd,*)  » 
WRITECl,*)  * 
WRITEd,*)  » 
WRITECl.*)  » 
WRITECl,*)  » 
WRITEd,*)  »  * 

WRITECl,*)  ' 
MRITEd,’*)  * 
MRITECl,*)  » 
WRITEd,“>)  » 
MRITEd,*)  * 
WRITECl,*)  * 
WRITEd,*)  »  » 


VAR  SO  X,Y,S* ,VARXO,VARYO,VARSO 
VAR  HI  X,Y,S* ,VARX1,VARY1,VARS1 
VAR  LX  X,Y,S*  ,VARy.2,VARY2,VARS2 
VAR  HO  X,Y,S* ,VARX3,VARY3,VARS3 
VAR  LO  X,Y,S» ,VARX4,VARY4,VARS4 
VAR  H3  X,Y,S» ,VARX5,VARY5,VARS5 


INTEGRATED  SQUARED  DEVIATION  FROM  DIF  SPECTRA* 

DIF  HI  A,C,S* ,DIFAX,DIFCX,DIFS1 

DIF  LX  A,C,S’ ,DIFA2,DIFC2,DIFS2 

DIF  HO  A,C,S*,DIFA3,DIFC3,DIFS3 

DIF  LO  A,C,S* ,DIFA4,DIFC4,DIFS4 

DIF  H3  A,C,S* ,DIFA5,DIFC5,DIFS5 


MRITEd,*)  * 

DIF 

WRITEd,*)  ' 

DIF 

WRITEd,i^)  * 

DIF 

WRITECl,*)  » 

DIF 

WRITEd,*)  * 

DIF 

WRITECl,*)  *  * 

HX  X,Y,S* ,DIFX1,DIFY1,DIFSX 
LX  X,Y,S» ,DIFX2,DIFY2,DIFS2 
HO  X,Y,S* ,DIFX3,DIFY3,DIFS3 
LO  X,Y,S* ,DIFX4,DIFY4,DIFS4 
H3  X,Y,S* ,DIFX5,DIFY5,DIFS5 


CLOSEd) 

FNAMEX-*KX.DT* 

FNAME2»*K2.DT* 

FNAME3«»»K3.DT* 

FNAME4a»K4.DT* 

FNAME5-*K5.DT* 

CALL  PLT2DOUTPUT ( FNAMEl , DIKHX , R) 
CALL  PLT2DOUTPUT(FNAME2,DXKLX,R) 
CALL  PLT2DOUTPUT(FNAME3,D1KHO,R) 
CALL  PLT2DOUTPUT(FNAME4,D1KLO,R) 
CALL  PLT2DOUTPUT(FNAME5,DXKH3,R) 


FNAMEl-'PX.DT* 

FNAME2»*P2.DT* 

FNAME3-*P3.DT* 

FNAME4-»P4.DT* 


CALL  PLT2DOUTPUT (FNAMEl , DlFHl , X8X ) 
CALL  PLT2D0UTPUT ( FNAME2 , DXFLX , 18X ) 
CALL  PLT2DOUTPUT<FNAME3,DXFHO,18X) 
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CALL  PLT2D0UTPUT (FNAME4 , DIFLO , 181 ) 
CALL  PLT2DOOTPUT(FHAME5 , D1FH3 , 181 ) 

it 

GOTO  1000 

5  WRITE(*,*)  'BAD  FILE  OPENING* 

300  FORMAT  (A) 

1000  END 
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PROGRAM  PS VARY 
IMPLICIT  NONE 
INTEGER  I,J,N,P,Q 

REAL  A,ALPH,BETA,D,D;?LT,DELTA_K,ENUG,G,K,K_MAX,KNU,K1,K2,K3 
REAL  L,M,P2,PI,SPEC 

REAL  VAR , VARl , VAR2 , VAR3 , VAR4 , VARS , VAR6 , VAR7 , VARS , VAR9 , VARl 0 , VARl 1 

REAL  VAR12,VAR13,VAR14,VAR15,VARX6 

REAL  V_FRIC,V_MIN,V250,V1000,V1250,V1950,WIND__V,Z 

REAL  Fl(-800:400,2),F2(-800:400,2),F3(-800:400,2),F4(-800:400,2) 

REAL  F5(-800;400,2) 


Aal.O 

ALPH«0.0081 

*  ALPH-PHILLIPS  CONSTANT  [  J 

BETA»0.74 

*  BETA-  [UNITLESS] 

ENUG-1.473E-4 

*  ENUG=E/(NU*G)  (UNITLESSJ 

G-980.0 

*  G-ACCELERATION  OF  GRAVITY  [CM/SEC^2] 

X2-0.359 

*  (1/CMj 

K3-0.942 

*  El/CH] 

K_MAX-3.63 

*  (1/CM) 

PI-3.141593 

V_MIN«12.0 

*  V_MIN«MINIMUM  FRICTION  VELOCITY  (CM/SEC)* 

WRITEC*,*)  ’ENTER  WIND_V  (CM/SEC^2)  &  Z  (CM)  ’ 
READ(*,A)  WIND_V,Z 

ft 

*  WIND_V-MIND  VELOCITY  AT  HEIGHT  Z  (CM/SEC^2] 

*  Z-HEIGHT  OF  WINDJ/  MEASUREMENT  ABOVE  WATER  SURFACE  [CM) 

* 

CALL  WIND(WIND_V,Z,V_FRIC,V25O,Vi00O,V1250,V195O) 

* 

D-(1.274+(0.0268*V_FRIC)  +  (6.03E-5*(V_FRIC’^*2)))**2 
K1«(K2*(V_MIN**2))/(V_FRIC**2) 
:<MU-(0.5756*SQRT<V__FRIC)*K_MAX)/(D**0. 16667) 
P2-LOG10(D/(V_FRIC/V_MIN) )/LOG10(K3/K2) 

ft 

DELT-0.010 
VAR-0 . 0 

* 

DO  1—800,400 

L-FLOAT(I-2CO)’^DELT 

K-EXP(L) 

F1(I,1)-K 

F2(I,1)-LOG10(K) 
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F3(I,1)«LOG10(K) 

F4(I,1)-L0G10(K) 

F5(I,1)*K 

IF  ((O.O.LT.K)  .AND.  (K.LE.KD)  THEN 

SPEC«(ALPH/<2.0*(K**3)))*EXP((-1.0*BETA*(G**2))/((V1950**4)*(K**2))) 

GOTO  1 

ENDIF 

IF  ((Kl.LT.K) .AND. (K.LE.K2))  THEN 
SPEC=ALPH/(2.0’frSQRT(Kl)*(K**2.5)) 

GOTO  1 
ENDIF 

IF  ((K2.LT.K).AND.(K.LE.K3))  THEN 
SPEC»(ALPH*D)/(2.0*(K3**P2)*(K**<3.0-P2))) 

GOTO  1 
ENDIF 


* 


I 


k 

kkk 


k 


IF  ((K3.LT.K) .AND. (K.LE.KNU))  THEN 
SPEC-(ALPH*D)/(2.0*(K^*3)) 

GOTO  1 
ENDIF 

IF  (KNU.LT.K)  THEN 

SPEC-(ENUG*(V_FRIC**3)*(K_MAX**6))/(KA*9) 

ENDIF 


F1(I,2)-(K*^2)*SPEC 

F5(I,2)»SQRT((K**2)*SPEC) 

F2<I,2)«(K**3)*SPEC 

F3(I,2)»(K*SPEC) 

F4(I,2)=(K**5)*SPEC 

VAR-VAR+ ( F2 ( I , 2 ) *DELT ) 

WRITE<*,*)  L,X,VAR 

IF  (EXP(L-DELT) .LE. 0.0030000) 
IF  (EXP(L-DELT) .LE. 0.0046875) 
IF  (EXP(L-DELT) .LE. 0.0093750) 
IF  (EXP(L-DELT) .LE. 0.0187500) 
IF  <EXP(L-DELT) .LE. 0.0375000) 
IF  (EXP(L-DELT) .LE. 0.0750000) 
IF  (EXP(L-DELT) .LE. 0.1500000) 
IF  (EXP<L-DELT) .LE. 0.3000000) 
IF  (EXP(L-DELT) .LE. 0.6000000) 
IF  (EXP(L-DELT) .LE. 1.2000000) 
IF  (EXP(L-DELT) .LE. 2. 4000000) 
IF  (EXP(L-DELT) .LE. 4. 8000000) 
IF  (EXP(L-DELT) .LE. 9.6000000) 
IF  (EXP(L-DELT) .LE. 19.200000) 
IF  (EXP(L-DELT) .LE. 38.200000) 


VARlaVAR 

VAR2-VAR 

VARS a VAR 

VAR4-VAR 

VAR5-VAR 

VAR6-VAR 

VAR7-VAR 

VAR8-VAR 

VAR9-VAR 

VARIO-VAR 

VARiiaVAR 

VAR12-VAR 

VAR13-VAR 

VAR14aVAR 

VAR15-VAR 
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IF  <EXP(L-DELT)  .LE. 300. 00000)  VAR16*=VAR 
END  DO 


WRITE(*,*) 

’CUM 

SLOPE 

VARIANCE 

UP 

TO 

0.0030000/CM 

WRITE(*,*) 

’CUM 

SLOPE 

VARIANCE 

UP 

TO 

0.0046875/CM 

WRITEC*,*) 

’CUM 

SLOPE 

VARIANCE 

UP 

TO 

0.0093750/CM 

WRITE(*,*> 

’CUM 

SLOPE 

VARIANCE 

UP 

TO 

0.0187500/CM 

WRITE(*,*) 

’CUM 

SLOPE 

VARIANCE 

UP 

TO 

0.0375000/CM 

WRITE(*,^) 

’CUM 

SLOPE 

VARIANCE 

UP 

TO 

0.0750000/CM 

WRITE(*,*) 

’CUM 

SLOPE 

variance 

UP 

TO 

0.1500000/CM 

WRITE(*,^) 

’CUM 

SLOPE 

VARIANCE 

UP 

TO 

0.3000000/CM 

WRITE(*,*) 

’CUM 

SLOPE 

VARIANCE 

UP 

TO 

0.6000000/CM 

WRITE(*,*) 

’CUM 

SLOPE 

VARIANCE 

UP 

TO 

1.2000000/CM 

WRITE(*,*) 

’CUM 

SLOPE 

VARIANCE 

UP 

TO 

2.4000000/CM 

WRITE(*,*) 

’CUM 

SLOPE 

VARIANCE 

UP 

TO 

4.8000000/CM 

WRITE(*,*) 

’CUM 

SLOPE 

VARIANCE 

UP 

TO 

9.6000000/CM 

WRITE(*,*) 

’CUM 

SLOPE 

VARIANCE 

UP 

TO 

19.200000/CM 

WRITE(*,*> 

’CUM 

SLOPE 

VARIANCE 

UP 

TO 

38,400000/CM 

a 

WRITE(*,*) 

’CUM 

SLOPE 

VARIANCE 

UP 

TO 

300.00000/CM 

m 

WRITE(*,*)  ’TOTAL  SLOPE  VARIANCE  a 

WRITE(*,*)  *K^2*SPEC  VS  K' 

CALL  PLT2DFILE(F1,1201) 

MRITE(*,*)  *K^2*SPEC  VS  K* 

CALL  PLT2DFILE(F5,1201) 

WRITEC*,*)  ’K^3*SPEC  VS  LO5i0(K)» 
CALL  PLT2DF1LE(F2,1201) 

MRITE(*,*)  ’K^l^SPEC  VS  LOGlO(K)’ 
CALL  PLT2DFILE(F3,1201) 

WRITE(*,*)  ’K-^S^SPEC  VS  LOGlO(K)’ 
CALL  PLT2DFILE(F«,1201) 

END 


* , VARl 
» , VAR2 
* ,VAR3 
* ,VAR^ 

' ,VAR5 
* ,VAR6 

’ ,VAR7,VAR7-VAR2 
* , VARS, VARS -VAR3 
* ,VAR9,VAR9-VARA 
’ ,VAR10,VAR10-VAR5 
’ , VARl 1, VARl 1 -VARS 
* ,VAR12,VAR12-VAR7 
’ , VARl 3, VARl 3 -VARS 
* ,VAR14,VARi;-VAR9 
* , VARl 5, VARl 5- VARl 0 
’  ,  VARl  6 
»  ,VAR 
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FORTRAN  Subroutines 


SUBROUTINE  ALPHA(MAT1,N) 

IMPLICIT  NONE 

INTEGER  I,J,K,L,M,N 

REAL  MATKN, 64) , LOW, HIGH, FACTOR, Q 

CHARACTER*!  CHOICE, LTR 

CHARACTER*64  A,B,C,D,TEMP,PICS(208)  ' 

•k 

WRITE<*,*)  'WANT  AN  ALPHASCALE  IMAGE?  [NJ' 

READ<*,300)  CHOICE 
IF  (CHOICE. NE. 'Y' )  GOTO  2 

k 

LOW^MATKl,!) 

HIGH-MAT1(1,1) 

DO  I-1,N 

DO  J«l,64 

IF  (MATld,  J)  .LT.LOW)  LOWeMATl(I,J) 

IF  (MATld,  J)  .GT. HIGH)  HIGH-MATl (I ,  J) 

END  DO 

END  DO 

* 

IF  (HIGH. LT. 0.0)  THEN 
HIGH-0.0 

FACTOR-LOW/ -26. 5 

GOTO  1 

ENDIF 

* 

IF  (LOW. GT. 0.0)  THEN 
LOW-0.0 

FACTOR-HIGH/26.5 

GOTO  1 

ENDIF 

★ 

IF  (HIGH.GE.-1.0*LOW)  THEN 

FACTOR-HIGH/26.5 

ELSE 

FACTOR-LOW/ -26. 5 
ENDIF 

ft 

IF  (FACTOR. EQ. 0.0)  FACTOR-!. 0 

it 

1  WRITE(*,*)  'ALPHASCALE:HIGH, LOW, FACTOR  HIGH, LOW, FACTOR 

ft 

DO  I-N,l,-! 

M-I-N/2-! 

TEMP-'  ' 

DC  j-1,64 

K-INT((MAT!d,J)) /FACTOR) 

IF  (K.GT.O)  THEN 
L-K+64 
LTR«CHAR(L) 
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ELSEIF  (K.LT.O)  THEN 
L«-«l*K+96 
LTR»CHAR(L) 

ELSE 

LTR-CHAR(32) 

ENDIF 

TEMP-TEMP ( 1 : J-1 ) / / LTR 
END  DO 

WRITE(’fr,*)  TEMP,'  »,M 
PICS(N-I+1)-TEMP 
END  DO 

* 

A-' 

- 4.4.+++++++++++++++++++++++++++++ 

3332222222222111111111100000000000000000001111X1X11X222222222233 

D-»2109876543210987654321098765432101234567890123A56789012345678901 

WRITE(*,*)  A 
WRITEC^,*)  B 
WRITE(*,*)  C 
WRITE(*,*)  D 

* 

PICS(N+1)-A 

PICS(H+2)«B 

PICS(N+3)«C 

PICS(N+4)-D 

it 

CALL  PICFILE(PICS,N, HIGH, LOW, FACTOR) 

it 

2  RETURN 

300  FORMAT  (A) 

END 


SUBROUTINE  ALPHAS (MATl , N , HIGH , LOW , FACTOR) 

IMPLICIT  NONE 

INTEGER  I,J,K,L,M,N 

REAL  MATl ( N , 64 ) , LOW , HIGH , FACTOR, Q 

CHARACTER*!  CHOICE, LTR 

CHARACTER*64  A,B,C,D,TEMP,PICS(208) 

L0W«MAT1(1,1) 

HIGH«MAT1(1,1) 

DO  I«1,N 

DO  J«l,64 

IF  (MAT1(I,J) .LT.LOW)  L0W»MAT1(I, J) 

IP  (MAT1(I,J)-GT.HIGH)  HIGH-MATl ( I , J) 

END  DO 

END  DO 

IF  (HIGH.LT.O.O)  THEN 
HIGHbO.O 
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FACTOR-LOW/-26.5 

GOTO  1 

ENDIF 

IF  (LOW. GT. 0.0)  THEN 
LOW- 0.0 

FACTOR-HIGH/26.5 

GOTO  1 

ENDIF 

IF  (HIGH.GE.-1.0*LOW)  THEN 

FACTOR-HIGH/26.5 

ELSE 

FACT0R-L0W/-26.5 

ENDIF 

IF  ( FACTOR. EQ. 0.0)  FACTOR-1.0 


WRITE(*,*)  *WANT  AN  ALPHASCALE  IMAGE?  [N] » 

READ(*,300)  CHOICE 
IF  (CHOICE. NE. *Y' )  GOTO  2 

WRITE(*,*)  »ALPHASCALE:HIGH, LOW, FACTOR  -* ,HIGH, LOW, FACTOR 


DO  I=N,1,-1 
M-I-N/2-1 
TEMP-'  ' 

DO  J-1,64 

K-INT ( (MATl ( I , J ) ) /FACTOR). 
IF  (K.GT.O)  THEN 
L-K+6A 
LTR»CHAR(L) 

ELSEIF  (K.LT.O)  THEN 
L-“l*K+96 
LTR«CHAR(L) 

ELSE 

LTR=CHAR(32) 

ENDIF 

TEnP**TEMP  (1 :  J"1 )  /  /LTR 
END  DO 

HRITE(*,*)  TEMP,'  ',M 
PICS(N-I+I)-TEMP 
END  DO 


A-' 

B-' 


+  +  +  +  +  +  4.  +  +  +  +  +  +++  +  +  +  +  +  +  +  +  +++  +  +  +  +  +' 


C«' 3332222222222111111111100000000000000000001111111111222222222233 ' 


D»'2109876543210987654321098765A321012345678901234567890123A5678901' 


WRITE(*,*)  A 
WRITE(*,’^)  B 
WRITE(*,*)  C 


WRITE(*,’»)  D 


PICS(N-!*1)-A 

PICS(N+2)»B 

PICS(H+3)«C 

PICS(^^■^4)«D 

it 

CALL  PICFILE<PrCS,N, HIGH, LOW, FACTOR) 

* 

2  RETURH 

3)0  FORMAT  (A) 

END 


SUBROUTINE  CHECKERBOARD(X,N) 

IMPLICIT  NONE 
INTEGER  I,J,N 
COMPLEX  X(1:N,1:N) 

DO  I»1,N 

DO  J-1,N 

X(I,J)«X(I,J)*(-1.0)*^((I-1)+(J-1)) 
END  DO 

END  DO 
RETURN 
END 


SUBROUTINE  DARKNESS(P,Q, THETA, INDEXR,INDEXI,GAMH,GAMV, DARK) 

it 

*  CREATES  POLARIZED  (HORZ  &  VERT)  FRESNEL_COEFFICIENT  DISTRIBUTIONS 
^  RELATIVE  TO  SENSOR  AND  SURFACE  COORDINATES 

it 

*  CREATES  SURFACE_PROJECTION_ATTENUATION_COEFFICIENT  DISTRIBUTION 

*  RELATIVE  TO  SENSOR  AND  SURFACE  COORDINATES 

* 

IMPLICIT  NONE 

INTEGER  I,J,N,P,Q 

REAL  I1,I2,I3,N1,N2,N3,R1,R2,R3 

REAL  ALPH,COSALPHA,SINALPHA 

REAL  BETA,COSBETA,SINBETA,SECBETA 

REAL  DELTA , GAMMAHOR , GAMMAPAR , GAMMAPER, GAMMASUM , GAMMAVER 
REAL  DARKER :Q,P:Q),GAMH(P:Q,P:Q) ,GAMV(P:Q,P;Q) 

REAL  DRK1(-32:31,-32:31),DRK2(-32:31,-32:31),GAMS(-32;31,-32:31) 
REAL  L,M,MU,COSMU,SINMU 
REAL  NU,COSNU,SINNU 

REAL  OMEGA, COSOMEGA, COSOMEGA2 , SINOMEGA 
REAL  INDEXI,IND£XR,RH0,RH01 
REAL  PI, PROJECT, RO, THETA 
Real  phi, phii,phi2, radius 

it 

delta-90. 0/FLOAT(Q) 

N-Q-P+l 
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?Ii>3. 141593 

RO«(tlJDEXR-1.0)**2/<INDEXR+1.0)**2 


WRITE(^,A)  »  » 

V;RITE<»»,*)  'THETA, INDEXR,INDEXI,ROa‘  *, THETA, INDEXR, IMDEXI , RO 


*  11,12,13  ARE  THE  RESOLVED  COMPONENTS  OF  THE  SENSOR  COORDINATE  VECTOR 

★ 

Il=SIND(THETA)*COSD(180.O) 

I2«S1ND(THETA) *SIND( 180 .0) 

I3«-C0SD(THETA)’»’<+1 .0) 

* 

DO  I«P,Q 
DO  J»P,Q 

* 

L^INT(I)*DELTA 

M«INT(J)^DELTA 

MU«SQRT((L**2)+(M**2)) 


IF  (MU.GT.FLOAT(Q)*DELTA)  GOTO  1 


IF  (MU.GT.0.0)  THEN 

NU»ATAK2D(M,L) 

ELSE 


NU=0,O 

ENDIF 


*  N1,N2,K3  ARE  THE  RESOLVED  COMPONENTS  OF  THE  SURFACE  NORMAL  VECTOR 


Nl«SIND(MU)*COSD(NU) 

N2=SIND(MU)«^SIND(NU) 

N3»C0SD(MU)*(+1.0) 

* 

*  DOT  PRODUCT  OF  I  &  N  »  | I | | N | (COSOMEGA)  »  COSOMEGA 

A 

COSOMEGAa(Il^Nl)+(I2*N2)+(I3*N3) 

OMEGA-ACOSD ( COSOMEGA ) 

SINOMEGA»SIND  <  OMEGA) 

* 

IF  (COSOMEGA. LE. 0.0)  GOTO  1 

A 

BETA-MU 

A- 

IF  (BETA. GT. 60.0)  BETA-60.0 
IF  (BETA. LT, 90.0)  THEN 

SECBETA-1 .0/ (COSD(BETA) ) 

***  ELSE 

***  SECBETA-0.0 

***  ENDIF 

A 

PROJECT«COSOMEGA*SECBETA 
DARK ( I, J) -PROJECT 
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it 


* 

3 

it 

* 


it 

1 

★ 

it 

fir** 
ft  ** 
* 

ft** 

ft** 

ft 

ftftft 
ft*  ft 
ft 

ft  ft* 
ftftft 
ft- 

ft** 

friiit 

ft 


IF  (SINOMEGA.SQ.O.O)  THEN 
GAMMAHOR»RO 
GAMMAVER-RO 
GOTO  3 

ENDIF 

RHO«ASIND (SIHOMEGA/ INDEXR) 

GAMMAH0R«(SIHD(0MEGA-RH0)*^2)/(SIND<0MEGA+RH0)**2) 

GAMMAVER-(TAND<0MECA-RH0)**2)/<TaND(0MEGA+RH0)^^2) 

GAMMASUMxO . 5*<GAMMAH0R+GAMMAVER) 

GAMH(I,J)»GAMMAaOR 
GAl-IV  ( I ,  J )  «G  AMMAVER 

IF  (N.EQ.64)  THEN 

GAMSd,  J)=GAMMASUM 

DRK1(I,J)=SECBETA 

DRK2(I,J>«COSOMEGA 

ENDIF 


END  DO 
END  DO 

IF  (N.EQ,6A)  THEN 

WRITE(*,*)  *GAMH«  HORZ_POLARI2ED  FRESNEL  COEFF  DISTRIBUTION 
CALL  ALPHA(GAHH»64) 

CALL  PLT3DFILE(GAMH,6^i) 

WRITEC'*,*)  'GAMV-  VERT^POLARIZED  FRESNEL  COEFF  DISTRIBUTION 
CALL  ALPHA(GAMV,6'») 

CALL  PLT3DiILE(GAMV.6ft) 

WRIT£(*,*)  'GAMS-  UNPOLARI2ED  FRESNEL  COEFF  DISTRIBUTION' 
CALL  ALPHA (GAMS, 64) 

CALL  PLT3DFILE(GAMS,64) 

WRITE (<^,*)  'DRKl-  ACTUAL  AREA  OF  SLOPING  SURFACE’ 

CALL  AL?HA(DRK1,64) 

CALL  PLT3DFILE(DRK1,64) 

WUITE<*,*)  'DRK2-  PROJECTION  OF  AREA  NORMAL  TO  INCIDENCE* 
call  AL?HA(0RK2,64) 

GALL  PLT3DFILE(DRK2,64) 

WRITE (*,*)  ’DARK-  DRKl*DRK2r*  SECBETA^COSOMEGA’ 

CALL  ALPHA(DARK,64) 

CALL  PLT3DFILE(DARK,64) 

ENDIF 

RETURN 
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5  WRITE(’^,*)  *BAD  FILE  OPENING' 

300  FORMAT  (A) 

END 


SUBROUTINE  DEEPBLUE(LREF, ZO , N,P, Q,LSUB ,HSUB , VSUB) 

* 

CREATE  UHPOLARIZED  SUBDOME  HEMISPHERICAL  RADIANCE  DISTRIBUTION 

*  RESOLVE  liORIZONTALLV  i  VERTICALLY  POLARIZED  RADIANCE  COMPONENTS 

*  BASED  UPON  THE  MONTE  CARLO  RESULTS  OF  PLASS,  KATTAWAR  I  GUINN  tl976) 

* 

^  INPUT: 

*  LREF  «  REFERENCE  RADIANCE  MEASURED  AT  THE  ZENITH  POINT,  LSKY(0,0)  [UNIT] 

*  ZO  «  SOLAR  ZENITH  ANGLE 


*  OUTPUT: 

^  LSUB  =»  UNPOLARIZED  SUBDOME  HEMISPHERICAL  RADIANCE  DISTRIBUTION 

*  HSUB  »  HORIZONTALLV^POLARIZED  LSUB 
^  VSUB  a  VERTICALLY  POLARIZED  LSUB 


IMPLICIT  NONE 
INTEGER  I,J,N,P,Q 

REAL  LSUB(P:Q,P:Q) ,HSUB(P:Q,P;Q) ,VSUB(P:Q,P:Q) 

REAL  A,B,C,COSMU,COSMU2,COSNU,L,LREF,M,MU,PHI,PI,PSI,RO,THETA,ZO 
CHARACTER* 18  PNAME 

PI-3.14159 

DO  r»P+l,Q 
DO  J«P+i,Q 

L»FLOAT(I> 

M«FLOAT(J> 

THETA-(PI/2.0)*(SQRT((L**2)-i-(M*^'2>)/FLOAT<Q)) 

IF  (THETA. GT. PI/2,0)  THEN 
LSUBd,  J)=0.0 
HSUBd,  J)=«0.0 
VSUBd,  J)"0.0 
GOTO  4 

EHDIF 


IF  (THETA. GT. 0.0)  THEN 
PHI=ATAN2D(M,L) 

ELSE 

PHI-0.0 


EHDIF 


A=COS(iO)«*2 

B-(SIN(l.l*v0))**SQRT(3,0> 

C«0.32*(10,0**3) 

RO-0.02 

LSUB^I, J)aLREF*RO*C*((l.O4(COS(A*THE7A)**2))/2.0) 
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*  CALCULATE  HORIZONTALLY^  &  VERTICALLY^POLARIZED  FRACTIONS 

*  VIA  RANDOM  SCATTERING  MODEL 

A 

HSUBd,  J)-LSUB(I,J)*0.5 
VSUB<I, J)=HSUB(I, J) 

A 

A  END  DO 

END  DO 

iV 

WRITEC^^,*)  *LSU3  -  UNPOLARIZED  SUBDOME  RADIANCE  DISTRIBUTION* 
IF  (N.EQ.64)  CALL  ALPHA(LSUB ,  6A ) 

FNAME«*LSUB.RAY* 

***  CALL  PLT3DOUTPUT(FNAME,LSUB,N,P,Q) 

***  CALL  ?LT3DFILE(LSUB,N) 

ik 

WRITE(*,*)  *HSUB  »  HORlZONTALLY_POLARIZED  LSUB' 

IF  (N.EQ.6A)  CALL  ALPHA(HSUB , 6A ) 

FNAME»*HSUB.RAY* 

CALL  PLT3DOUTPUT (FNAME , HSUB , N , P , Q) 
ffi**  CALL  PLT3DFILE(HSUB,N) 

* 

WRITE <*,*)  *VSUB  «  VERTICALLY^POLARIZED  LSUB* 

IF  (N.EQ.6A)  CALL  ALPHA(VSUB , 64 ) 

FNAME»*VSUB.RAY* 

CALL  PLT3DOUTPUT(FNAME,VSUB,N,P,Q) 

***  CALL  PLT3DFILE(VSUB,N) 

ft 

RETURN 

END 


SUBROUTINE  DIST__GEN(OPT,N1,P,Q,WIND_AZ,V1250,DEVA,DEVC,D1,D2,D3,D4) 

ft 


*  CREATES  SURFACE  SLOPE  PROBABILITY  DISTRIBUTIONS 

ft 


■ft  OUTPUTS; 
vv  D1 

*  D2 
^  D3 
^  D4 

★ 


UNNORMALIZED  GAUSSIAN  DISTRIBUTION 
UNNORMALIZED  GRAM-CHARLISR  DISTRIBUTION 
NORMALIZED  GAUSSIAN  DISTRIBUTION 
NORMALIZED  GRAM-CHARLIER  DISTRIBUTION 


(MIN 

PROB 

< 

1/N1^2) 

(MIN 

PROB 

< 

1/N1^2) 

(MIN 

PROB 

- 

1/N1^2) 

(MIN 

PROB 

1/N1^2) 

*  INPUTS: 

*  OPT  -  SELECT  1  OF  2  DISTRIBUTION  TYPES: 

1  »  SLOPE  ANGLE  (DEG] 

*  2  »  SLOPE  ANGLE  [TAND(DEG)} 

*  N1  -  SPATIAL  ARRAY  SIZE 

*  ?  A  Q  ■  DISXRISUiIuN  ARRAY  DIHEKSIOnS 

*  WIND^AZ  »  AZIMUTH  OF  WIND  DIRECTION 

*  V1250  -  WIND  VELOCITY  AT  1250  CM  ABOVE  SURFACE 

*  OSVA  «  ALONG-WIND  SLOPE  DEVIATION  (TAND(DEG)] 

*  DEVC  o  CROSS-WIND  SLOPE  DEVIATION  [TAND(DEG)} 


A-lll 


IMPLICIT  NONE 
INTEGER  I, J,Nl,OPT,P,Q 

REAL  ANG,ANG1, DELTA, DEVA>DEVC,C03,C04,C21,C22,CA0,GCl,GC2,GC3,GC/i 
REAL  GRAMCHAR , L , Ll , M , Ml , P I , RAD , SUMl , SUM2 , SUM3 , SUM A , VARl , VAR2 , VARS 
REAL  VARA , V1250 , WGHTO , WGHTl , MGHT2 , WGHT3 , WGHTA , WIND^AZ 
REAL  D1(P:Q,P!Q) ,D2(P:Q,P:Q),D3<P:Q,P;Q),DA(P:Q,P:Q) 

* 

**  GRAM-CHARLIER  SERIES  COEFFICIENTS  FROM  COX-MUNK  STUDY 
n 

CO3»O.OA-O.O0O33*V125O 

C0A=0.23 

C21«0.01-0.000086*V1250 

C22o0.12 

CA0»0. AO 

* 

PI-3.1A1593 

WIND_AZ=WIND_AZ* (PI/ 180.0) 

* 

IF  (OPT.EQ.l)  DELTA-90. 0/FLOAT(Q) 

IF  (OPT.EQ.2)  DELTA-1. 0/FLOAT<Q) 

A 

DO  I«P+1,Q 
DO  J«P+1,Q 
L»FLOAT(I)ADELTA 
M«FL0AT(J)^DELTA 

* 

RAD»SQRT( (L**2)+(M**2) ) 

It 

IF  (RAD. GE. (FLOAT (Q)*DELTA))  GOTO  1 

A 

IF  ((M.EQ.0.0) .AND. (L.EQ.0,0))  THEN 
Ll-0.0 
Ml-0.0 
GOTO  2 

ENDIF 

A 

ANG»ATAN2(M,L) 

ANGlaWIHD_AZ-ANG 

A 

IF  (OPT.EQ.l)  THEN 

L1»(TAND(RAD)/DEVA)*C0S(ANG1) 

M1-(TAND(RAD)/DEVC)'*SIN(ANG1) 

ENDIF 

A 

IF  (OPT.EQ,2)  THEN 

L1»(RAD/DEVA)*C0S(ANG1) 

M1»(RAD/DEVC)*^SIN(ANG1) 

ENDIF 

A 

*  CALCULATE  GRAM-CHARLIER  EXPANSION 
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2  ^C1»1.0-(0.5*C21’^((M1**2)-1.0)aL1)-(C03*((L1*A3)*-3.0U1)/5.0) 

GC2«CAO’*((L1’»*A)>6.0*(L1^*2)+3.0)/24.0 
GC3«C22^((Ll**2)-1.0)*((MX**2)-1.0)/4.0 
GC4bC04*( <Ml**4)-6. 0*(Ml**2)+3 .0) /24 . 0 
GRAMCaAR»GCl+GC2+GC3+GC4 

* 

D1 (I , J)nEXP(-0 .5*((L1**2)+(M1**2)))/(2. 0*PI*DgVA*DEVC) 

D2 ( I , J ) =GRAMCHAR*D1 ( I , J ) 

SUM1«SUM1+D1(I, J) 

SUM2«SUM2+D2(I, J) 

* 

X  END  DO 

END  DO 


*  BIAS  ALL  ZERO  VALUES  IN  DISTX  &  DIST2  FOR  ALPHASCALE  DISPLAY 

*  CALCULATE  VARIANCES  OF  DISTX  &  DIST2 

*  NORMALIZE  DISTX  &  DIST2 

* 

WGHTO-1.0 /(FLOAT (NX )**2) 

WGHT1=»0.0 

WGHT2-0.0 

***  WGHTla-0.005 

***  WGHT2— 0.005 

DO  1»P+1,Q 
DO  JoP+l,Q 

if 

Li»FLOAT(I)*DELTA 
M-FLOAT( J)*DELTA 
RAD»SQRT((L**2)+(M*^2)) 

if 

IF  (RAD, GE. (FLOAT (Q)*DELTA) )  GOTO  3 

* 

D1(I,J>-D1(I,J)/SUM1 

D2(I,J)-D2(I,J)/SUM2 

i\r 

VARX«VARlfDX  (I,  J)*(RAD*’^2) 

VAP.2=«VAR2+D2  ( I ,  J)  ^  (RAD**2 ) 

rtr 

IF  (DX(I, J) .EQ.O. 0^  DX(1, J)»WGHT1 

IF  (D1(I,J>,LT.WGHT0)  THEN 
D3(I, J)«MGHT1 

ELSE 

D3(I, J)oDl(I. J) 

SUM3-SUM3+D3(I, J) 

ENDIF 

fr 

IF  (D2(I, J) .EQ.0.0)  D2<I, J)«WGHT2 


IF  (D2(I, J) .LT.HCHTO)  then 
D4(I, J)-WGHT2 
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ELSE 


ENDIF 


END  DO 
END  DO 


DA(I,J)-D2(I,J) 
SUMA-SUM4+DA(I, J) 


*  BIAS  ALL  ZERO  VALUES  IN  DIST3  &  DISTA  FOR  ALPHASCALE  DISPLAY 

*  CALCULATE  VARIANCES  OF  DIST3  &  DISTA 

*  NORMALIZE  DIST3  &  DISTA 


*** 


WGHT3«0.0 
WGHTA«0.0 
WGHT3— 0.005 
WGHTA=-0.005 


DO  I»P+1,Q 
DO  J*P+1,Q 

LaFLOAT(I)*DELTA 
M=FLOAT(J)*DELTA 
RAD«SQRT( (L*’fr2)+(M**2) ) 

IF  (RAD.GE. (FLOAT(Q)ADELTA))  GOTO  A 

IF  (D3(I, J) .GE.WGHTO)  THEN 

D3(I,J)-D3(I, J)/SUM3 
VAR3-VAR3+D3  ( I ,  J)  *  (RAD*’«f2  > 

ELSE 

D3(I, J)=WGHT3 

ENDIF 

IP  (DA<I,J) .GE.WGHTO)  THEN 

DA(I, J)»DA(I, J)/SUMA 
VARA»VARA+DA ( I , J) * (RAD**2 ) 

ELSE 

DA(I, J)nWGHTA 

ENDIF 

END  DO 
END  DO 

WRITE(*,*)  *  ' 

WRITE<*,*)  *SUM1,SUM2«  \SUM1,SUM2 


IF  (OPT.EQ.l)  THEN 

WRITE(*.<^)  'DEV1.DEV2-  »  .T«ND(SqRT(VARl)  KTAND(S0RT(VAR2)  ) 

ELSE 

WRITE(*,*)  'DEVI,DEV2«  \SQRT(VAR1) ,SQRT(VAR2) 

ENDIF 
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WRITE(’*,*)  'SUM3,SUM4a  »,SUM3,SUM4 


* 

IF  (OPT.EQ.l)  THEN 

WRITE(*,*)  »DEV3,DEVA=  \  TAND(SQRT( VARS )), TAND ( SQRT( VARA ) ) 

ELSE 

WRITE (*,*)  »DEV3,DEVA=  \  SQRT(VAR3) , SQRT(VARA) 

ENDIF 

fc 

WRITE(*,*)  »  * 

* 

A**  WRITE(*,*)  'UNNORMALI2ED  GAUSSIAN  SLOPE  DISTRIBUTION  ARRAY* 

***  IF  (NX.EQ.6A)  CALL  ALPHA(D1,6A) 

CALL  PLT3DFILE(D1,N1) 

* 

***  WRITE(*,*)  'NORMALIZED  GAUSSIAN  SLOPE  DISTRIBUTION  ARRAY* 

AAA  IF  (N1.EQ.6A)  CALL  ALPHA(D3,6A) 

***  CALL  PLT3DFILE(D3,N1) 

***  WRITE<*,*)  'UNNORMALIZED  GRAM-CHARLIER  SLOPE  DISTRIBUTION  ARRAY* 
***  IF  (N1.EQ.6A)  CALL  ALPHA(D2,6A) 

***  CALL  PLT3DFILE(D2,N1) 

* 

AAA  WRITEC*,*)  'NORMALIZED  GRAM-CHARLIER  SLOPE  DISTRIBUTION  ARRAY* 

AAA  IF  (N1.EQ.6A)  CALL  ALPHA(DA,6A) 

AAA  CALL  PLT3DFILE(DA,N1) 

A 

RETURN 

END 


SUBROUTINE  FFT2D(X,N, INV) 

A 

*  CALCULATES  FORWARD  &  BACKWARD  FAST_FOURIER_TRANSFORM 

A 

*  OUTPUT: 

*  X  »  TRANSFORMED  COMPLEX  SQUARE  ARRAY 


A 


A 


INPUT: 

X  =  UNTRANSFORMED  SQUARE  ARRAY 
N  a  DIMENSION  OF  X 
INV  »  DIRECTION  OF  TRANSFORMATION: 
-la  FORWARD  TRANSFORM 
+1  a  BACKWARD  TRANSFORM 


IMPLICIT  NONE 

REAL  ANGLE, PI, RTEM,WPWR 

INTEGER  I,INV,IREM,IT,ITER, J,J1,J2,K,L,M,MXP,M1,N,NXP,NXP2,N1,N2 
COMPLEX  X(1:H,1:N),W,7 


PI-3, 1A1593 

ITER-0 

IREM-N 
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IREM-INT(IREM/2) 


* 

10 


IF  (IREM.EQ.O)  GOTO  20 

ITER«ITER+1 
GOTO  10 


20  CONTINUE 

A 

CALL  CHECKERBOARD (X,N) 

A 

DO  80  Ml=l,2 
DO  70  L«1,N 

A 

NXP2-N 


DO  50  IT=1,ITER 

A 

NXP-NXP2 

NXP2=INT(NXP/2) 

A 

IF  (NXP2.EQ.0)  GOTO  50 

A 

WPWR-PI / FLOAT  <  KXP2 ) 

A 

DO  40  M=1,NXP2 

A 

ANGLE=FLOAT(M-l)*WPMR 

W«CMPLX(COS(ANGLE),FLOAT(INV)*SIN(ANGLE)) 

A 

DO  40  MXP-NXP,N,NXP 

A 

Jl-MXP-NXP+M 

J2-J1+NXP2 

A 

IF  (Ml.EQ.l)  THEN 

T»X(J1,L)-X(J2,L) 

X(J1,L)-X(J1,L)+X(J2,L) 

X(J2,L)«T*M 

ELSE 

T-X(L,J1)-X(L,J2) 

X(L, J1)-X(L,J1>+X(L, J2) 
X(L, J2)=T*W 

ENDIF 

A 

40  CONTINUE 

J\t  A 

A 

N2aN/2 

Hl-N-1 

J«1 
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it 


it 

A 


A 

55 

A 

60 

A 


65 

A 

70 

80 

A 

A 

AAA 

A 

AAA 

A 

AAA 

AAA 

A 

AAA 

A 

AAA85 

AAA90 

A 


DO  Ial,Nl 

IF  (I.GE.J)  GOTO  55 

IF  (Ml.EQ.l)  THEN 
T=X(J,L) 
X(J,L)«X(I,L) 
X(I,L)bT 

ELSE 

T-X(L, J) 

X(L,J)=»X(L,I) 

X(L,I)«T 

ENDIF 


K»N2 


IF  (K.GE.J)  GOTO  65 


J-J-K 
K-K/2 
GOTO  60 
J=J+K 

END  DO 

CONTINUE 

CONTINUE 

CALL  CHECKERBOARD (X,N) 

IF  (INV.EQ.-l)  GOTO  90 

RTEM-FLOAT(N*N) 

DO  90  Jal,N 
DO  85  I»1,N 

X(I,J)oX(I,J)/RTEM 


CONTINUE 

CONTINUE 

RETURN 

END 


SUBROUTINE  PICFILE(DATA,N,A,B,C) 
IMPLICIT  NONE 
INTEGER  I,J,H 
REAL  A,B,C 

CHARACTER*64  DATA(204) 
CHARACTER*!  OPT 
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CHARACTER^IO  FNAME 


A 


A 


A 

AAA 

AAA 

AAA 

A 

5 

10 

300 


1 

5 

300 


WRITE(*,*)  *WANT  AN  ALPHASCALE  PIC  FILE?  (N]  * 
READ(*,300)  OPT 
IF  (OPT.NE, )  GOTO  5 

WRITE (*,*>  » ENTER  PIC  FILENAME  ->  * 

READ(*,300)  FNAME 

OPEN ( 3 , FILE-FNAME , STATUS- » UNKNOWN » , ERR-1 0 ) 

WRITEO,’^^)  FNAME,  »: HIGH, LOW, DELTA  «*,A,B,C 
DO  I-1,N 

WRITE(3,*)  DATA(I) ,N/2-I 
END  DO 

DO  I-N+1,H+A 
WRITE(3,*)  DATA(I) 

END  DO 

CLOSE  (3) 

WRITE(*,*>  'FILENAME  =  ', FNAME,'  IS  WRITTEN' 
RETURN 

WRITE(*,*)  'BAD  FILE  OPENING' 

FORMAT  (A) 

END 


SUBROUTINE  PLT2DFILE(X,N) 

IMPLICIT  NONE 
INTEGER  I,J,N 
REAL  X(N,2),Y,Z 
CHARACTER*!  CHOICE 
CHARACTER*18  FILENAME 

WRITEC*,*)  'WANT  A  PLT2D  OUTPUT  FILE?  [N]  ' 

READ(*,300>  CHOICE 
IF  (CHOICE.NE.'Y')  GOTO  1 

WRITE (*,*)  'ENTER  PLT2D  OUTPUT  FILENAME  «>' 

READ(*,300)  FILENAME 

OPEN(l,FILE=FILEHAME,STATUS**NEW' ,ERR-5) 

DO  I»1,N 

WRITE(1,*)(X(I, J),J=1.2) 

END  DO 
CLOSE(l) 

WRITEC*,*)  FILENAME, 'HAS  BEEN  WRITTEN  AS  AN  OUTPUT  FILE' 
RETURN 

WRITE(*,*)  'BAD  FILE  OPENING' 

FORMAT  (A) 

END 


SUBROUTINE  PLT2DOUTPUT (FILENAME, X,N) 
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* 

A 

*** 

AAA 


1 

5 

300 


1 

5 

300 


IMPLICIT  NONE 
INTEGER  I,J,N 
REAL  X(N,2) ,Y,Z 
CHARACTER*!  CHOICE 
CHARACTER*18  FILENAME 

WRITE(*,*)  'WANT  A  PLT2D  OUTPUT  PILE?  [N]  FILE  «*, FILENAME 

READ(*,300>  CHOICE 
IF  (CHOICE, NE. 'Y')  GOTO  1 

WRITEC*,*)  'ENTER  PLT2n  OUTPUT  FILENAME  ««>» 

READ(*,300)  FILENAME 

OPEN(l,FILE«FILENAME,STATUSa'NEW' ,ERRn5) 

DO  I«1,N 

WRITECl,*) (X(I, J) ,J=1,2) 

END  DO 
CLOSE (1) 

WRITE(*,*)  FILENAME, 'HAS  BEEN  WRITTEN  AS  AN  OUTPUT  FILE' 
RETURN 

WRITE(*,*)  'BAD  FILE  OPENING' 

FORMAT  (A) 

END 


SUBROUTINE  PLT3DFILE(X,N) 

IMPLICIT  NONE 
INTEGER  I,J,H 
REAL  X(N,N),Y,2 
CHARACTER*!  CHOICE 
CHARACTER*18  FILENAME 

WRITE<*,*)  'WANT  A  PLT3D  OUTPUT  FILE?  CN]  ' 

READ<*,300)  CHOICE 
IF  (CHOICE. NE. 'Y')  GOTO  ! 

WRITE(*,*)  'ENTER  PLT3D  OUTPUT  FILENAME  »=> ' 

READ(*,300)  FILENAME 

OPEN ( 1 , FILE-FILENAME , STATUS- ' NEW ' , ERR-5 ) 

WRITE(!,*)  N,N 
DO  Iol,N 

WRITE(!,*)(X(I, J) , J-1,H) 

END  DO 
CLOSEd) 

WRITE(*,*)  FILENAME, 'HAS  BEEN  WRITTEN  AS  AN  OUTPUT  FILE' 
RETURN 

WRITE(*,*)  'BAD  FILE  OPENING' 

FORMAT  (A) 

END 


SUBROUTINE  PLT3DINPUT (FILENAME, X,N,P,Q) 

IMPLICIT  NONE 

INTEGER  7  J,N,P,P1,Q,Q! 

REAL  X(r  P;Q) 
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CHARACTER*18  FILENAME 


it 

iritii 

fiifk 

A 


A 


A 

1 

5 

300 


A 

A 

A 

AAA 

AAA 

A 


1 

5 

300 


WRITE(*,*)  »ENTER  PLT3D  INPUT  FILENAME  ««>' 
READ(’^,300)  FILENAME 

OPEN ( 1 , FILE»FILENAME , STATUS* » OLD » , ERR«5 ) 

READd,*)  N,N 

Plo-N/2 

Ql»N/2-l 

DO  I-P1,Q1 

READd,*)  (X(I,  J) ,  J*P1,Q1) 

END  DO 

CLOSE (1) 

WRITEC*,*)  FILENAME, *HAS  BEEN  INPUT* 

RETURN 

WRITE(*,*)  *BAD  FILE  OPENING* 

FORMAT  (A) 

END 


SUBROUTINE  PLT3DOUTPUT(FILENAME,X,N,P,Q) 
IMPLICIT  NONE 
INTEGER  I,J,N,P,P1»Q,Q1 
REAL  X(P:Q,P:Q) 

CHARACTER*!  CHOICE 
CHARACTER*18  FILENAME 

WRITE(*,*)  *WANT  A  PLT3D  OUTPUT  FILE?  [N]  FILE* 

READ(*,300)  CHOICE 
IF  (CHOICE. NE. *V* )  GOTO  1 

WRITEC*,*)  'ENTER  PLT3D  OUTPUT  FILENAME  *=> * 
READ (*,300)  FILENAME 

OPEN ( 1 , FILE=FILENAME , STATUS- *  NEW  * , ERR-5 ) 

WRITEd,*)  N,N 

Pl=-N/2 

Ql-N/2-1 

DO  I»P1,Q1 

WRITEd,*)  (X( I,  J)  ,J-P1,Q1) 

END  DO 
CLOSEd) 

WRITE(*,*)  FILENAME, 'HAS  BEEN  OUTPUT* 

RETURN 

WRITE(*,*)  'BAD  FILE  OPENING* 

FORMAT  (A) 

END 


, FILENAME 
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SUBROUTINE  PSVARYl(KNVQ,H,WIND_V,Z,VARY) 

A 

CALCULATES  ALONG-WIND,  CROSS-WIND  AND  TOTAL  VARIANCE  OF  SLOPE  DISTRIBUTION 

*  FOR  THREE  SPECTRAL  REGIONS:  1)  BELOW  LOWEST  SAMPLE  FREQUENCY,  2)  WITHIN 

*  SAMPLED  SPECTRAL  REGION,  &  3)  ABOVE  HIGHEST  SAMPLE  FREQUENCY 

A 

IMPLICIT  NONE 
INTEGER  I,J,N,P,Q 

REAL  A , ALPH , ANG , BETA , D , DELT , DELTA , ENUG , G , K , K_MAX , KNU , KN YQ 
REAL  K1 , K2 , K3 , L , M , P2 , PI , SPEC , SPREAD^TOT , TEMP 

REAL  VAR_,S ,  VAR_X ,  VAR_Y ,  VARIES ,  VARl^X ,  VARl^Y ,  VAR2_S ,  VAR2_X ,  VAR2_Y 
REAL  V_FRIC,V_MIN,V250,V1000,V1250,V1950,WIND_V.Z 
'.EAL  LNSPEC(-800:400,2),SPREAD<0;179)  ,  VARY(0  :  4 , 0 :  4  ) 

CHARACTER*!  OPT 

ft 

**  WIND^VaWIND  VELOCITY  AT  HEIGHT  Z  (CM/SEC^2) 

**  Z«HEIGHT  OF  WIND_^V  MEASUREMENT  ABOVE  WATER  SURFACE  [CM] 


A»1.0 

ALPH-0.0081 

**  ALPH«PHILLIPS  CONSTANT  [  ] 

BETA=*0.74 

**  BETA"  [UNITLESS] 

ENUGb1.473E-4 

**  ENUG=E/(NU*G)  {UNITLESS] 

G«980.0 

**  G"ACnELERAT.XON  OF  GRAVITY  [CM/SEC^2) 

K2»0.359 
**  tl/CM] 

K3=0.942 
**  [l/CM] 

K_MAX“3.63 

itft  **  -M] 

'1=3.141593 

V  MIN-!  ’  0 

**  V_MIN^MINIMUM  FRICTION  VELOCITY  [CM/ SEC] 

* 

«RITE('<,*)  *WANT  FULL-SPECTRUM  STATISTICS?  (Nj  > 
.EAD(*,300)  OPT 
IF  (OPT.NE.'Y')  GOTO  2 

A 

WRITE(*,*)  'CALCULATING  FULL-SPECTRUM  STATISTICS., 

A 

CALL  WIND(WIND_V,Z,V_FRIC,V250,V1000,V1250,V1950) 

A 

D=(1.274+(0.0268*V_FRIC)  +  (6.03E-5*(V_FRIC*^‘2)))**2 
K1b(K2a(V_MXN**2U/^V^FRIC**2] 
KNU*(C.5756*SQRT(V_FRIC)*K_MAX)/(D**0. 16667) 
P2»LOG10(D/(V_rRIC/V_MIN))/LOG10<K3/K2) 

A 

DEM-0.01 
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I 


DELTA=PI/180.0 

VAR_S»0.0 

VAR_X»0 . 0 

VAR_Y=0.0 

VARY<0,2)«0.0 

VARY(0,3)=0.0 

VARY(0,4)«0.0 

ft 

DO  I»-800,400 

L«»FLOAT(I)*DELT 

K»EXP(I.) 

LNSPEC<I,1>=LOG10(K) 

ft 

CALL  SPREADVARY CK , VI 950 , SPREAD , SPREAD^TOT) 

it 

IF  ((O.O.LT.K).AND.(K.LE.Kl))  THEN 

SPEC«(ALPH/(2.0*(K**3)))*EXP((-1.0*BETA*(G**2))/((V1950**4)*(K**2))) 

GOTO  1 

ENDIF 

ft 

IF  ((K1.LT.K).AND.(K.LE.K2))  THEN 
SPEC»ALPH/(2.0*SQRT(K1>*(K**2.5)) 

GOTO  1 
ENDIF 

it 

IF  ((K2,LT.K).AND.(K.LE.K3))  THEN 
SPECa(ALPH*D)/(2.0*<K3**P2)*(K**(3.0-P2))) 

GOTO  1 
ENDIF 

ft 

IF  ((K3.LT.K>.AND.(K.LE.KNU))  THEN 
SPEC»(ALPH*D) / (2. 0*(K**3) ) 

GOTO  1 
ENDIF 

* 

IF  (KNU.LT.K)  THEN 

SPEC=<ENUG*(V_FRICA*3)k(K_MAX^*6))/(K**9) 

ENDIF 

ft 

1  LNSPEC(I,2)«(K**3)*SPEC 

* 

DO  J=0,179 
ANG=FLOAT(J)*DELTA 

TEMP»(SPREAD(J)*LNSPEC(I,2)*DELT*DELTA) 

VAR_S»VAR_S+TEMP 

VAR_X« VAR_X+ ( ( COS ( ANG ) **2 ) *TEMP ) 

VAR_Y»VAR_^Y+((SIN(ANG)**2)*TEMP) 

END  DO 

ft 

ftftft  MRITE(*,*)  L,K,VAR 

4r 

IP  (EXP(L-DELT) .LE. 0.003)  THEN 


A-122 


VARY(1,1>-0.003 

VARY(1,2)«VAR_X 

VARY(1,3)=»VAR_Y 

VARY(1,4)»VAR_S 

ENDIF 

A 

IF  (EXP(L-DELT).LE.<KNYQ/FL0AT(N/2)))  THEN 
VARY(2,i)=KNYQ/FL0AT(N/2) 

VARY(2,2)=VAR_Y 

VARY(2,3)»VAR_X 

VARY(2,4)=VAR_S 

ENDIF 

A 

IF  (EXP(L-DELT) .LE.KNYQ)  THEN 
VARY(3,1)-KNYQ 
VARY(3,2)»VAR_Y 
VARY(3,3)»VAR_X 
VARY(3,A)=VAR_S 

ENDIF 

A 

IF  (EXP(L-DELT) .LE. 300.0)  THEN 
VARY(A,1)=300.0 
VARY(A,2)“VAR_Y 
VARY(A,3)»VAR_X 
VARY(A,A)=«VAR_S 

ENDIF 

A 

END  DO 

A 

WRITE (*,*>  'RESULTS  OF  PSVARYl' 

AAA  WRITE (*,*)  *SPREAD_TOT  =  \SPREAD_TOT 

WRITEC*,*)  '  ' 

A 

DO  1=1, A 

WRITE(*,*)  'WAVE  SLOPE  VARIANCE  UP  TO  ',VARY(I,1),'  CY/CM  &  DIFFER* 

WRITEC*,*)  'CUM  CROSS-WIND  VARIANCE  »  ' , VARY(I ,2) , VARY(I,2)-VARY(I-1 , 2) 

WRITE(*,*)  'CUM  ALONG-WIND  VARIANCE  «  ' , VARY(I , 3) , VARY<I, 3) -VARY( I-l , 3 ) 

WRITEC*,*)  'CUM  COMBINED  VARIANCE  «  ' , VARY(I, A) , VARY(I , A)-VARY(I-1 , A) 

WRITEC*,*)  '  ' 

END  DO 

A 

2  RETURN 

300  FORMAT  (A) 

END 


giinonMjTMP  PsyARY2 (XNYQ , N , WIND  V , 2 ,yi250 , VARY) 


*  CALCULATES  ALOHC-WIIID,  CROSS-WIND  AND  TOTAL  VARIANCE  OF  SLOPE  DISTRIBUTION 

*  FOR  THREE  SPECTRAL  REGIONS:  1)  BELOW  LOWEST  SAMPLE  FREQUENCV,  2)  WITHIN 


*  SAMPLED  SPECTRAL  REGION,  &  3)  ABOVE  HIGHEST  SAMPLE  FREQUENCY 
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IMPLICIT  NONE 
INTEGER  I,J,N,P.Q 

REAL  A , ALPH , ANG , BETA , D , OELT , DELTA , ENUG , G , K, K_MAX , KNU , KNYQ 
REAL  K1 , K2 , K3 , L , M , P2 , PI , SPEC , SPREAD^TOT , TEMP 

REAL  VAR_,3 ,  VAR^X ,  VAR_Y ,  VARIES ,  VARi_X ,  VAR1_Y ,  VAR2_S ,  VAR2_X ,  VAR2_Y 
REAL  V_FRIC,V_,MIN,V250,V1000,V1250,V1950,WI{ID_V,Z 
REAL  LNS?EC(-800:400,2),SPREAD(0;179),VARY(0:i»,0:4) 

CHARACTER*!  OPT 

* 

**  WIND_V=WIKD  VELOCITY  AT  HEIGHT  Z  (CM/SEC^23 
**  Z=-HEICBT  OF  WIND_V  MEAFUREMEHT  ABOVE  MATER  SURFACE  (CM] 

»v 

A«1 . 0 

ALPH-0.0081 

**  ALPH=PHILLIPS  CONSTANT  [  ] 

BETA-0.74 

**  BETA-  (UNITLESS  1 
ENUG-1.473E-4 

**  ENUC«E/(NU*G)  [UNITLESSl 
G-980.0 

**  G-ACCELERAXION  OF  GRAVITY  (CM/SEC^2J 
K2-0.359 
**  (1/CMJ 

K3-0.942 
**  (1/CM3 

K_MAX»3.63 
**  (1/CM) 

PI-3.X41593 

ft  •ft 

V_MIN-12.0 

**  V_MIN«MINIMUM  FRICTION  VELOCITY  (CM/ SEC] 

***  MRITE(*,*)  *MANT  FULL-SPECTRUM  STATISTICS?  (N)  * 

***  READ(*,300)  OPT 

***  IF  (<OPT.NE,*Y*).OR.(OPT.HE.*y»))  GOTO  2 

A 

MRITE(*,*)  'CALCULATING  FULL-SPECTRUK  STATISTICS . ' 

Vf 

CALL  MIND(MIND_V,2,V_FRIC,V250,V!000,V1250,V1950) 

ft 

D«(1.274+(0.0268«V_FRlC)f (6.03E-5*(V_FRIC**2)) )**2 
Kl-(K2*(VjaN**2) )  /  (V_FRIC**2) 
KNU»(0,57:>6*SQRT(V_FRIC)*K_MAX)/(D**0. 16667) 
P2»LOG10<D/(V_FRIC/V_MIN))/LOG10(K3/K2) 

A 

DELT-0.01 
DEL****,-?^  / 1 0Q  _  £) 

VAR_S»0-0 
VAR_X»0.0 
VAR_Y«0 . 0 
VARY<0,2)-0.0 
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VARY<0,3)»0.0 

VARY(0,4)=0.0 

* 

DO  Ia-800,400 

L»FLOAT(I)*DELT 

K-EXP(L) 

LNSPEC (1,1) «LOG10 (K) 

A 

CALL  SPREADVARY (K,V1950, SPREAD, SPREAD_TOT) 

A 

IF  ((0.0.LT.K).ArD.(K.LE.Kl)>  THEN 

SPEC»(AL?H/(2.0*(K**3)>)’^EXP((-1.0*BETA’^<G**2))/(<V1950^^4)*(K**2))) 

GOTO  1 
ENDIF 

A 

IF  ((K1.LT.K>.AND.(K.LE.K2))  THEN 
SPEC»ALPH/(2.0’*fSQRT<Kl)*(K**2.5)) 

GOTO  1 
ENDIF 

A 

IF  ((K2.LT.K).AND.(K.LE.K3))  THEN 
SPEC«(ALPH*D)/<2.0*(K3*'frP2)*(K**(3.0-P2))) 

GOTO  1 
ENDIF 

A 

IF  ((K3.LT.K>.AND.(K.LE.KNU))  THEN 
SPECa(ALPH*D) / (2. 0*(K**3) ) 

GOTO  1 
ENDIF 

A 

IF  (KNU.LT.K)  THEN 

SPEC*^CENUG*(V_FRIC>-^‘3)*(K_MAX**6))/(K**9) 

ENDIF 

A 

1  LNSPEC(I,2)=(K**3)*SPEC 

A 

DO  J=0,179 
ANGaFLOAT ( J ) *DELTA 

TEMPa(S?READ(J)’^LNSPEC(I,2>*DELT*DELTA) 

VAR_S=VAR_S+TEMP 

VAR_XaVAR_X+  (  (  COS  (  ANG  )  ^  ^^2  )  *T£MP  ) 

VAR_Y“VAR_Y+ ( ( S IN (ANG) ) ^THMP ) 

END  DO 

A 

***  WRITE(*,*)  L,K,7AR 

A 

IF  (EXP(L-DELT)  .LE.0.003'>  THEN 
VaRx (i, i;«0 .003 
VARY(l,2)aVAR_X 
VARY(1,3)«VA?._Y 
VARY(1,4)«VAR_S 

ENDIF 
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A 


IF  (EXP(L-DELT).LE.(KNYQ/FL0AT(N/2)))  THEN 
VARV(2,l)=KNYQ/FL0AT(N/2) 
VARY(2,2)=VAR_Y 
VARY(2,3)»VAR_X 
VARy(2,4)«VAR_S 

ENDIF 

IF  (EXP(L-DELT) .LE.KNYQ)  THEN 
VARY(3,1)-KNYQ 
VARY<3,2)»VAR_Y 
VARY(3,3)aVAR_X 
VARY(3,A)=VAR_S 

ENDIF 

IF  (EX?(L“DELT) .LE. 300.0)  THEN 
VARY(4,1)»300.0 
VARY(4,2)aVAR_Y 
VARY(4,3)=VAR_X 
VARY(4,4)=»VAR.,S 


ENDIF 

END  DO 

WRITE(*,*) 

WRITE(*,*) 

WRITEC*,*) 

'RESULTS  OF  PSVARYl ' 

' SPREAD_TOT  »  ' , SPREAD^TOT 

t  t 

DO  1=1,4 

WRITEC*,*) 

WRITE(*,*) 

'WAVE  SLOPE  VARIANCE  UP  TO  ’ 

'CUM  CROSS-WIND  VARIANCE  »  ' 

',VARY(I,1),’  CV/CM  (i  DIFFER’ 

'  ,VARV(I,2),VARY(1,2)-VARYCI-I,2) 

WRITE(fr,*) 

HRITE(’S*) 

MRITE<'^,*) 

END  DO 

'CUM  ALONG-WIND  VARIANCE  =  ’ 

'GUM  COMBINED  VARIANCE  -  ' 

1  1 

'  ,VARY(I,3),VARY(I,3)-VARY(1-1,3) 

'  ,VARY(I,4) ,VARY(I,4)-yARY(I-l,4) 

RETURN 

FOPMAT  (A) 

END 

SUDROUTINE  RaLPH(X,N,RY,IY,MY,PY) 

A 

*  COMPOS :TE  SUBROUTINE  TO  DISPLAY  COMPLEX  ARRAY  AS  REAL,  IMAGINARY, 

*  MAGNITUDE,  AND  PHASE  COMPONENTS 

A 

*  INPUT: 

*  COMPLEX  ARRAY  Xni,N) 

•ft 
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*  OUTPUTS: 

*  REAL  ARRAY  RY(N,N) 

*  IMAGINARY  ARRAY  IY(N,N) 

*  MAGNITUDE  ARRAY  MY(N,N) 

PHASE  ARRAY  PY(N,N) 

* 

IMPLICIT  NONE 
INTEGER  N 
COMPLEX  X(N,N) 

REAL  RY(N,N) ,IY(N,N) ,MY(N,N) ,PY(N,N) 

* 

CALL  RIMP(X,N,RY,IY,MY,PY) 

* 

WRITE 'REAL  COMPONENT  OF  COMPLEX  ARRAY' 

CALL  ALPHA<RY,N) 

* 

WRITE (*,*)  'IMAGINARY  COMPONENT  OF  COMPLEX  ARRAY' 
CALL  ALPHA<IY,N) 

•ft 

WRITE (*,*)  'MAGNITUDE  COMPONENT  OF  COMPLEX  ARRAY’ 
CALL  ALPHA(MY,K) 

it 

WRITE(*,A)  'PHASE  COMPONENT  OF  COMPLEX  ARRAY' 

CALL  ALPHA(PY,N) 
a 

RETURN 

END 


SUBROUTINE  RXMP(X,N,RY, IY,MY,PY) 

IMPLICIT  NONE 
INTEGER  I,J,N 
COMPLEX  :C(N,N) 

REAL  RY(N,N>,IY(N,N),MY(N,N) ,PY<N,N),HALFPI 

HALFPI=3.X41593/2.0 

DO  I»1,N 

DO  J«1,N 

RY(I,J)=REAL(X(I, J)) 

IY(I,J)=AIMAG(X<I, J)) 

MY(I,J)«CABS(X(t, J)) 

IF  ((RY(I,J).EQ.O.O).AND.(IY(I,J).EQ.O-0))  THEN 
PY(I,J)«0.0 

ELSEIF  (IY(I, J) .EQ.0.0)  THEM 
?Y(I,J)»SIGN(HALFPI,RY(I, J)) 

ELSE 

PY(I,J)-ATAN2(IY(I,J) ,RY(I, J)) 

ENDIF 

END  DO 

END  DO 
RETURN 
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END 


SUBROUTINE  SEA_SPEC(W_V, Z , W_AZ , DELTA_K, FI , F2 , F3 , F4 , FXl , FVl , KCOR, N , P , Q) 

A 

*  GENERATES  PIERSON-STACY  2D  SLOPE  &  ELEVATION  SPECTRA  IN  RECT  COORDINATES  (L,M] 

*  CALCULATES  VARIANCE  OF  SPECTRA  FROM  1*DELTA_K  TO  (N/2-1 ) *DELTA_K 

* 

*  INPUTS: 

*  W  V  WIND  VELOCITY  MEASUREMENT  AT  HEIGHT  Z  ABOVE  WATER  SURFACE  (CM/SEC) 


*  Z  =  HEIGHT  OF  W1ND__VEL0CITY  MEASUREMENT  (CM) 

*  W_AZ  “  AZIMUTHAL  DIRECTION  OF  WIND  RELATIVE  TO  SENSOR  (RAD) 

*  DELTA^K  =  DELTA  SPATIAL  FREQUENCY  (CY/CM) 

A 

A  OUTPUTS; 

*  FI  “  ABS(  TOTAL  (X+Y)  SLOPE  SPECTRUM)  (  ) 

*  F2  =  ABS(ELEVATION  SPECTRUM)  (CM) 

*  F3  o  ABS<X-COMPONENT  SLOPE  SPECTRUM)  (  ) 

*  F4  =  ABS(Y-COMPONENT  SLOPE  SPECTRUM)  (  ) 

*  FXl  «  X-COMPONENT  SLOPE  SPECTRUM  (  ] 

A  FYl  »  Y-COMPONENT  SLOPE  SPECTRUM  (  ) 


*  KCOR  »  INTEGER(K+OFF)  POINTER  ARRAY  TO  POLAR-RECTANGULAR  CORRECTION  FACTOR 

A 

IMPLICIT  NONE 
INTEGER  I,J,N,P,Q 
INTEGER  KCOR(P:Q,P:Q) 

REAL  A , ALPH , ANGO , ANGl , BETA , D , DELTA_K , ENUG , G , K , KINT , KMAG , K_MAX , KNU 
REAL  K1,K2,K3,L,M,P2,PI,SPANG,SPEC,SPREAD,SPRED0,SPRED1,SPRED2,SPRED3 
REAL  TEMP , VAR_X , VAR_Y , VAR_ELV , VAR^TOT , V_FRIC , V_MIN , V250 , VI 0 00 , V1250 
REAL  V1950,W_AZ,W_V,X2,Y2,Z 

REAL  F1(P:Q,P:Q),F2^®:Q,P:Q),F3(P:Q,P:Q),F4(P:Q,P;Q) 

REAL  FX1(P:Q,P;Q) ,FY1<P:Q,P:Q) ,SPRDCOR( 0:4096) 

REAL  CSPAN(0:512) ,SPANGCOR<0:512) ,SPECCOR(0;512,l!2) 

A 

A»1.0 

ALPH»0.0081 

*  ALPH-PHILLIPS  CONSTANT  (UNITLESS) 

BETA«0.74 

*  BETA®  (  ) 

ENUGol.473E-4 

*  ENUG«E/(NU*G)  (  ) 

G®980.0 

*  G»ACCELERATION  OF  GRAVITY  (CM/SEC^2) 

K2®0.359 
>>  (CY/CM) 

K3®0.942 

*  (CY/CM) 

K_MAX«3 . 63 

*  (CY/CM) 

PIa3. 141593 

A 
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V_MIN«12.0 

*  V_.MIN»MINIMUM  FRICTION  VELOCITY  ICM/SEC) 

it 

CALL  WIND(W_V,Z,V_FRIC,V250,V1000,V1250,V1950) 

it 

D«(1.274+(0.0268»'V_?RIC)  +  <6.03E-5*(V_FRIC**2)))**2 
KXe(K2*(V_MIN*A2) )  /  (V_FRIC'^*2) 

KNU«((0.5756*SQRT(V_FRIC)*K_MAX)/<D**(0.16667))) 

P2=LOG10(D/(V_FRIC/V_MIN;)/LOG10(K3/K2) 

tt 

DO  I«P,Q 
DO  J=P,Q 
L"FLOAT(I) 

MaFLOAT(J) 

KMAG=SQRT( (L**2)+(M**2) ) 

K«KMAG*DELTA_K 

IF((K.EQ.0.0) .OR. (K.GE. (FLOAT ( -P) «DELTA_K) ) )  THEN 

SPANG=0.0 

GOTO  2 

ENDIF 

ANG0aATAM2(M,L) 

ANG1=W_A2-ANG0 

A 

*  CALCULATE  2D  DIRECTIONAL  SPREADING  FUNCTION 

A 

SPREDO-COS ( ANGl ) **2 
SPRED1«(8.0/ (3 . 0*PI) )*(SPRED0**2) 

SPRED2“EXP((-1.0*(G**2))/(2.0*(K**2)*(V1950**;,))) 

SPRED3«(X.0-<A/2.0)+<A^SPRED0))/PI 

SPREAD»(  (SPREDl^d  .  0-SPRED2>  )  +  (SPRED3*SPRED2) ) 

A 

*  CALCULATE  POLAR-TO-RECTANGULAR  CORRECTION  FACTORS 

A 

KINT=A*INT(KMAG«0.25) 

SPRDCOR(KINT)=SPRDCOR(KlNT)+SPREAD 
KCORd,  J)«KINT 

A 

*  CALCULATE  ID  ELEVATION  POWER  SPECTRUM 

A 

IF  ((O.O.LT.X).AND.(K.LS.Kl))  THEN 

SPEC-(ALPH/(2.0’^(K**3)))*EXP((-1.0^BETA*(G**2))/((V1950**A)*(K*’*2))) 

GOTO  1 

ENDIF 

A 

IF  ((Kl.LT.K) .AND. (X.LE.K2))  THEN 
SPEC»ALPH/(2.0*SQRT(KX)A(K**2.5)) 

GOTO  1 
EKDIr 

A 

IF  ((K2.LT.X).AND.<K.LE.K3))  THEN 
SPEC*<AL?H'^D)/(2.0*(K3'<^*?2)*(K**(3.0-P2))) 

GOTO  1 
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ENDIF 


A 

IF  ((K3.LX.K>.AND.(K.LE.KNU))  THEN 
SPEC=(ALPH’^D)/(2.0*(K**3)) 

GOTO  1 
ENDIF 

* 

IF  (KNU.LT.K)  THEN 

SPEC=»(ENUG*(V_FRICA’^3)*(K_MAX**6)  )/(K**9) 
ENDIF 

«r 

^  CALCULATE  UNCORRECTED  2D  SLOPE  &  ELEVATION  SPECTRA 

it 

1  SPANG=SQRT(S?READ*SPEC) 

X2a(L*D£LTA^K: 

Y2«(M*DELTA_X> 

it 

2  F1'I,J)=K*S?ANG 
F2(I,  J)=*SPAHG 
FX1(I,J)=»X2*SPANG 
FYICI, J>aY2*SPANG 
F3(I,  J)«<ABS(X2*SPANG) 

F4(Z,J)-ABS(V2*SPANG) 

* 

*  OPTION!  CALCULATE  POLAR-RECTANGULAR  CORRECTION  DATh 

* 

***  SPECCOR<iClNX,l)»SPECCOR(KlNT,l)tKKA’fr2)*SPEC) 

SPECCOR(KINT,2)=SPECCOR(XIHT,2)+1.0 
SPANGC0R^KINT)=SPANGC0R(KINT)+FX(I. 

it 

END  DO 
END  DO 

H 

^  CORRECT  SPECTRA  FOR  POLAR-TO-RECYANGULAR  CONVERSION 

*  CALCULATE  CUMULATIVE  VARIANCES 

* 

no  i«p,Q 

DO  J=sP,Q 


KMAG*=SQRT(FLOAT(I)»A2+PLcJAT(J)**2) 


KINTaKCORd,  J) 

IF  (KINT.EQ.O)  GOTO  3 


TEMP=:SQRT(S?RDC0R(KIHT)*DSLTA_IC) 


F1<1.J)371(1, j)/TEM? 

VAR_r07rVAR_^rCXF:cX,J)^*2)*^(DHLrA_X’**2> 

CSPAK<KIN7)=CSPAN(KINT>+Pl(I,J):t^2 

F2<I,J)-F2(I,J)/TEMP 

VAR_ELV«VAR^5LV+(F2<I,J)’^*2)n(DBLTA_K*>2) 

FXl  ( I ,  J  )  *iPXL(  I ,  J)  / 1  EM? 
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VAR_XaVAR_X+(FXl(I,  J)aC2;’^(D5LTA_K**2) 

FYld,  J)=FY1<I,  J)/TEMP 

VAR_Y«V AR  ,Y+ (  F Y 1  ( I ,  J *  2  )  ^»  ( D?LTA_K'*  *2 ) 

F3(I,J)«F3(I,  J)/T£?iP 
F4(I,j;-P4(I,J)/TEMP 

A 

ADDITlOrTAL  VaXIANCB  FOR  DOUBLY-SAMPLED  NYQUIST  PREQUEKCY 

IF  (ICMAO.GX.FLOAX(Q))  TBEM 

VARj£OT«VAR_TOr+CFl(I,J)«*2)*-CDELrA_K*>^2) 
VAR_ELVptVAR^r:LV+<F2<I ,  J)  ^  (DELTA_K**2) 

VAR_X3VAR.X+<FX1  df  J)»’^2)*(DbLTA_K>^*'2) 

VaR^Vji7AR_Y+  (FYl  J>  **2 )  *  ('JELTA^K^’^Z ) 

SHDIF 

* 

3  22ND  DO 

END  DO 

^  OETIOH;  WRITE  OUT  POLAR-RECTANGULAR  CORRECTXON  PARAMETERS 

it 

WRITS(i^,>^)  *k,spangcor,sprdcor,cs?an* 

***  po  IaX,Q+X 

?.=FLOAT<  I )  *DELTA^K 

★vvyr  WRIT£(^»^,*)  K,S?ANGCORd),SPRDCORd')  ,CSPAK(X> 

END  DO 

it 

WRTTE(^,*>  'TOTAL  SI*OV£  VARIANCE  OF  THS  Y-COMPOHEKTS  «  ',VAR_Y 

WRITEC^,*)  'TOTAL  SLOPE  VARIANCE  OF  THE  X-COMPONENTS  *  '  ,VAR__X 

WRlTE(vv,*>  "TO-^AL  slope  COMBINED  VARIANCE  "  '  ,VAR^TOT 

MRITE(*,*>  'TOTAL  ELEVATION  VARIANCE  (CM^2I  o  ’ ,VAR_ELV 

W 

RETURN 

END 


SUBROUTINE  B{CYBLUE(LR£F,?HlO,ZO,N,P,Q,LSKy«HSKY,VSKY) 

^  CREATr  UNPOLARIZED  SKVDOHE  HEMISPHERICAL  RADIANCE  DISTRIBUTION 

*  RESOLVE  HORIZONTALLY^  X  VERTICALLY^POLARIZliD  RADIANCE  COMPONENTS 

* 


*  INPUT: 

*  LRoP  -  REFERENCE  RADIANCE  MEASURED  AT  THE  ZENITH  POINT,  LSKV(0,0)  [UNIT] 

*  PHXO  =.  SUN  AZIMUTH  [DEG]  (-180.. +  180) 

*  ZO  -  SUN  CSCLINA?’ION 

* 


*  OUTPUT: 

^  -i-SKY  a  UNPOLARIZED  SKYDOME  ANGULAR  RADIANCE  DISTRIBUTION 


"  HSX*i  ^  KCAlZCNTA^.L'i^P-OLARIZ’riD  LSXY 


*  VSKY  VERTICALLV^POLARIZED  LSKY 


A 


IMPLICIT  NONE 
INTEGER  I,J,N,P,Q 


REAL  LSKY(P:Q,P:Q) ,HSKV(P:Q,P.Q) ,VSKY(P:Q,PiQ) 

REAL  A,B,C,COSMU,COSMU2,COSNU,H,L,LREF,M,MU,PHI,PHIO,PI,PSI,THETA,20 
CHARACTERi^lS  FNAME 

A 

PI-3.14159 

A 

DO  I-P+1,Q 
DO  J-P+1,Q 

A 

L=FLOAT(I) 

M-FLOAT(J) 

THETA»<PI/2.0)*(SQRT((L**2)+(M**2))/FLOAT(Q)) 

A 

IF  (THETA. GT. PI/2.0)  THEN 
LSKYd,  J)o0.0 
HSKYd,  J)-0.0 
VSKYd,  J)-0.0 
GOTO  4 

ENDIF 

ft 

IF  (THETA. EQ. 0.0)  THEN 
PHI-0.0 
GOTO  1 

ENDIF 

A 

PHI»ATAN2(M,L) 

A 

1  COSMU=COS(20)*COS(THETA)+SIN(ZO)*SIN(THETA)*COS(PHI-PHIO) 
MU-ACOS(COSMU) 

A»0.91+10.0*EXP(-3.0*MU)+0.45*(COSMU**2.0) 

IF  (THETA. GE. 1.57)  THEN 
B-1.0 
GOTO  2 

ENDIF 

3-1. 0-r^P(-0. 32/COS (THETA)) 

2  C-0.274*(0. 91+10. 0*EXP(-3.0*20)+0.45*((COS(ZO))**2.0)) 

LSK.Y  (I ,  J  )  -LREF*A<^B  /C 

A 

^  CALCULATE  HORIZONTALLY  &  VERTICALLY  POLARIZED  FRACTIONS 
*  VIA  PURE  RAYLEIGH  SCATTERING  MODEL 

A 

I?  (MU.EQ.0.0)  THEN 
PSI-0.0 
GOTO  3 

ENDIF 

A 

COSMU2-COSMU**2 

COSNy-(SIN(THE7r>>*GOS(70)-StN(ZO)*COS(THETA)v^COS(PHI-PHIO))/SIN(MU) 
PSI-C . 94*( (1 . 0-C03MU2) / (1 . 0+C0SKU2) ) 

3  H-C0.5frri.O-PSI))+(PSI*(COSNU**2)) 

HSKYd,J)-LSKYd,J)*H 

VSKYd,  J)-LSXYd,J)*(1.0MH) 
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4 


EHD  DO 
END  DO 

tc 

WRITE(*,*)  »LSKY  »  UNPOLARIZED  SKYDOME  ANGULAR  RADIANCE  DISTRIBUTION* 
IF  (N.EQ.64)  CALL  ALPHA(LSKY, 64 ) 

FNAME»*LSKY.RAY* 

CALL  PLT3DOUTPUT ( FNAME , LSKY , N , P , Q ) 

AA*  CALL  PLT3DFILE(LSKY,N) 

A 

WRITE(*,*)  *HSKY  »  HORIZONTALLY^POLARIZED  LSKY* 

IF  <N.EQ.64>  CALL  ALPHA(HSKY, 64 ) 

FNAME" *HSKY. RAY* 

CALL  PLT3DOUTPUT ( FNAME , HSKY , N , P , Q) 

AAA  CALL  PLT3DFILE (HSKY , N ) 

A 

WRITEC’*,*)  *VSKY  »  VERTICALLY^POLARIZED  LSKY* 

IF  (N.EQ.64)  CALL  ALPHA(VSKY, 64) 

FNAME" *VSKY. RAY* 

CALL  PLT3DOUTPUT ( FNAME ,VSKY , N , P , Q) 

***  CALL  PLT3DFILE(VSKY,N) 

A 

RETURN 

END 


SUBROUTINE  SKYMAP(LREF, PHIO , ZO , THETA, N, P , Q, LSRF , HSRF,VSRF) 

A 

*  CREATE  UNPOLARIZED  SKYDOME  HEMISPHERICAL  RADIANCE  DISTRIBUTION 

*  IN  SURFACE  SLOPE  COORDINATES  (BETA, ALPHA)  RELATIVE  TO  SENSOR 

*  RESOLVE  HORIZONTALLY^  &  VERTICALLY^POLARIZED  RADIANCE  COMPONENTS 

A 

*  INPUT: 

*  LREF  "  REFERENCE  RADIANCE  MEASURED  AT  THE  ZENITH  POINT,  LSKY(0,0)  (UNIT) 

*  PHIO  "  SUN  AZIMUTH  (DEG)  (-180.. +180) 

*  THETA  «  SENSOR  AZIMUTH  ANGLE  (DEG)  (0..+90) 

^  ZO  »  SUN  AZIMUTH  ANGLE  (DEG)  (0..+90) 

A 

A  OUTPUT: 

*  LSRF  "  LINEAR  MAP  OF  LSKY  TO  SURFACE  COORDINATES  (ALPH,BETA) 

*  HSRF  -  LINEAR  MAP  OF  HSKY  TO  SURFACE  COORDINATES  (ALPH,BETA) 

*  VSRF  "  LINEAR  MAP  OF  VSKY  TO  SURFACE  COORDINATES  (ALPH,BETA) 

A 

IMPLICIT  NONE 
INTEGER  I,J,N,P,Q 

REAL  ALPH , BETA , COSOMEGA , DELTA , I VI , I V2 , I V3 , N VI , NV2 , NV3 , KVl , RV2 , RV3 , XHET 
REAL  LSRF(P:Q,P!Q) ,HSRF(P:Q,P:Q) ,VSRF(P:Q,P:Q) 

REAL  A .  B ,  G ,  COSMU ,  OOSMU2 ,  COSNU ,  H ,  L ,  LREF , M , MU .  PHI . PHIO  . PI . PSI  .-THETA .  ZO 
CHARACTER*18  FNAME 

A 


PI«3, 14159 
DELTA»90.0/FLOAT(Q) 
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*  IV1,IV2,IV3  ARE  THE  RESOLVED  COMPONENTS  OF  THE  SENSOR  COORDINATE  VECTOR 


IV1=SIND  (THETA) ’«'SIND(  180.0) 
IV2-S1ND (THETA) *COSD< 180.0) 
IV3=»COSD  (THETA) 

DO  I»P+1,Q 
DO  J«P+1,Q 

LoFLOAKD’^DELTA 

M»FLOAT(J)*DELTA 

BETA-SQRT((L**2)  +  (M*»*2)) 

IF  (BETA. GE. 90-0)  GOTO  A 


it 


IF  (BETA, GT. 0.0)  THEN 

ALPH»ATAN2D(M,L) 

ELSE 


ALPH«0 . 0 

ENDIF 


NV1,NV2,NV3  ARE  THE  RESOLVED  COMPONENTS  OF  THE  SURFACE  NORMAL  VECTOR 

NV1»SIND(BETA)*SIND(ALPH) 

NV2»SIND(BETA)*C0SD(ALPH) 

NV3»COSD(BETA) 


ft  DOT  PRODUCT  OF  IV  &  NV  =*  |  iv]  |nv|  ( .OSOMEGA)  «  COSOMEGA 


COSOMEG.\«(IVlftNVl)  +  (IV2*NV2)  +  (IV3ftNV3) 


*  RV1,RV2,RV3  ARE  THE  RESOLVED  COMPONENTS  OF  THE  REFLECTED  SKVDOME  VECTOR 

it 

RV1«(NV1*2 . OftCOSOKEGA) -IVl 
RV2«(NV2ft2.0ftCOSOMEGA)-IV2 
RV3=(NV3*2.0ftCOSOMEGA)-IV3 


THET«ACOS(RV3) 


IF  (THET.GT.O.O)  THEN 

PHI«ATAN2(RV1,RV2) 

ELSE 

PHI=0.0 


ENDIF 


IF  (THET . GT . PI/ 2 . 0)  THEN 
LSRF(I,J)«0.0 
HSRF(I,J)a0.0 
VSRF(I,J)-0.0 
GOTO  A 
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ENDIF 


1  COSMU»COS(ZO)*COS(THET)+SIN(EO)*SIN(THET)’*COS(PHI-PKIO) 
MU«ACOS(COSMU) 

A«0.91+10.0*EXP(-3.0*MU)+0. 45*(COSMU**2.0) 

IF  <THET.GE.1.57)  THEN 
B=1.0 
GOTO  2 

ENDIF 

B-1  0-EXP(-0.32/COS(THET)) 

2  C»0,274*(0.91+10.0*EXP(-3.0*20)+0. A5*((COS(Z0))**2.0)) 
LSRFd,  J)aLREF*A*B/C 

* 

*  CALCULATE  HORIZONTALLY  &  VERTICALLY  POLARIZFD  FRACTIONS 
VIA  PURE  RAYLEIGH  SCATTERING  MODEL' 


IF  (MU.EQ.0.0)  THEN 
PSI«0.0 
GOTO  3 

ENDIF 

* 

COGMU2=COSMU**2 

COSNUa(SIH(THET)*COS(ZO)-SIH(ZO)*COS(THET)*COS(PHI-PHIO))/SIK(MU) 

PSI«0.94A((1.0-COSKU2)/(1.0+COSMU2)) 

3  H«(0.5*(1.0-PSI))+(PSI*(COSNU**2); 

HSRFCI, J)«LSRF(I, J)*H 
VSRF<I, J)bLSRF(I,J)A(1.0-H) 

it 

A  END  DO 

END  DO 


***  MRITE<*,*)  *LSRF  =  LSKY  MAPPED  TO  SURFACE  COORDINATES* 
***  IF  (N.EQ.6A)  CALL  ALPHA(LSRF, 6A) 

FNAME=*LSRF.RAY» 

A**  CALL  PLT3DOUTPUT(FHAME,LSRF,N,P,Q) 

CALL  PLT3DFILE(LSRF,N) 


■ftirit 

it 


ititfr 

it 


WRITE (»’,*)  ’HSRF  »  HSKY  MAPPED  TO  SURFACE  COORDINATES* 
IF  (N.EQ.6A)  CALL  ALPHA(HSRF, 6A ) 
r NAME"* HSRF. RAY* 

CALL  PLT3D0UTPUT(FNAME,HSRF,N,P,Q) 

CALL  PLT3DFILE(HSRF,H) 


WR1TE(*,*)  *VSRF  "  VSKY  MAPPED  TO  SURFACE  COORDINATES* 
IF  ,H.EQ.6A)  CALL  ALPHA(VSRF, 6A) 

FNAME«*VSRF.RAY* 

CALL  ?L73DOUT?Ur<FNAME,VSRr,N,P,Q) 

CALL  PLT3DFILE(VSRF,N) 


RETURN 

END 
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SUBROUTINE  SPREADVARY(K, V1950 , P3 , SPREAD^TOT) 

IMPLICIT  NONE 
INTEGER  I,J,N,P,Q 
REAL  A,ANG1,DELTA,G,K 

REAL  PI , SPREAD , SPREDO , SPREDl , SPRED2 , SPRED3 
REAL  SPREAD_TOT ,  V^FRIC , V_,MIN ,  V1950 ,  X2 ,  Y2 ,  Z 
REAL  F3 (0:179) 

A=1.0 
Ga980.0 
PI-3.1A1593 
DELTA=PI/ 180.0 
SPREAD_TOT«0.0 

DO  1*0,179 

ANG1«FL0AT ( I ) *DELTA 
SPREDO*COS ( ANGl ) **2 
SPREDl* (8 . 0/ (3 . 0*PI) )*(SPRED0**2) 

SPRED2«EXP( (-1 . 0*(G*^2) ) / (2 . 0*(K**2) *<V1950**4 ) ) ) 
SPRED3=(1.0-(A/2.0)+(A*(SPRED0)))/PI 
SPREAD=(SPRED1*<1.0-SPRED2))  +  (SPRED3<^SPRED2) 
SPREAD_TOT*SPREAD_TOT+SPREAD*DELTA 
F3(I)aSPREAD 

END  DO 

RETURN 

END 


SUBROUTINE  WGN_SPEC ( W1 , GWN , ISEED , N , P , Q ) 

ir 

*  CREATE  FREQUENCY  DOMAIN  REPRESENTATION  OF  WHITE  GAUSSIAN  NOISE 

*  OUTPUT; 

*  N*N  COMPLEX  MATRIX  GWN(P:Q,P;Q)  WHERE: 

*  P=-N/2  AND  Q*N/2-l 

*  REAL(WGN(I,J))  VARIES  FROM  -1.0  TO  +1.0 

*  IMAG(WGN<I,J))  VARIES  FROM  -1.0  TO  +1.0 

*  MAC  (WGH(I,J)  EQUALS  +1.0  EVERYWHERE 

*  PHS  (WGN(I,J)  VARIES  FROM  -PI  TO  +PI 

it 

IMPLICIT  NONE 
INTEGER  I,J,N,P,Q 
INTEGER^4  ISEED 
REAL  VAR,X1,X2,Y1,Y2 
REAL  W1(P;Q,P;Q) 

COMPLEX  GWN(P;Q,P:Q) 

* 

VAR»FLOAT(N*H) 

if 

*  CREATE  N*K  REAL  MATRIX  W1(P;Q,P;Q)  OF  PSEUDORANDOM  VALUES 
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CALL  WGN2D(N,VAR,ISEED,M1) 


*  INSERT  Ml  VALUES  INTO  REAL  COMPONENTS  OF  N*N  COMPLEX  MATRIX  GWN(P:Q,P:Q) 


DO  J=P,Q 

GWN(I,J>=»CMPLX(M1(I,J),0.0) 
END  DO 

END  DO 


*  FORWARD-FFT  THE  COMPLEX  MATRIX  GWN(P:Q,P:Q)  INTO  THE  FREQUENCY  DOMAIN 

it 

CALL  FFT2D(GHN,N,-1) 

* 

*  NORMALIZE  THE  MAGNITUDE  OF  GWN(P:Q,P:Q) 


DO  J=P,Q 

GMN(I,J)»GWN(I,J)/CABS(GWN(1, J)) 
END  DO 

END  DO 


RETURN 

END 


SUBROUTINE  MGN2D ( N , VAR , ISEED , MAY ) 
REAL  MAY ( N,N), VAR, SUM, TEMP, T VAR 
INTEGER  I,J,K,N 
INTEGER*4  ISEED 

TVAR«SQRT(VAR)*1 . 414159 

DO  1=1, N 

DO  J=1,N 
SUM=0.0 

DO  X«l,6 

TEMP  =  RAN  (ISEED) 
SUM  »  SUM  +  TEMP 
END  DO 

MAY ( I , J ) =T VAR* ( SUM- 3 . 0 ) 

END  DO 

END  DO 
RETURN 
END 


SUBROUTINE  MIND(MINDJ/, Z, V_FRIC, V250 , VIOOO , V1250, V1950> 

yir 

*  OUTPUTS  MIND  VELOCITIES  AT  HEIGHTS  0  CM,  250  CM,  1250  CM,  &  1950  CM 

*  ABOVE  V/ATER  SURFACE  BASED  OH  INPUT  MIND_,VELOCITY  MEASUREMENT  AND  MEASUREMENT 

*  HEIGHT  ABOVE  MATER  SURFACE.  AH  HOMOGENEOUS  MIND  PROFILE  IS  ASSUMED. 
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A 


*  INPUTS; 

*  WIND_V  »  INPUT  WIND^VELOCITY  MEASUREMENT  [CM/ SEC] 

*  Z  a  MEASUREMENT  HEIGHT  ABOVE  WATER  SURFACE  (CM] 

^  OUTPUTS; 

w  V^FRIC  -  WIND  VELOCITY  AT  0  CM  [CM/SEC] 

*  V250  “  WIND  VELOCITY  AT  250  CM  (CM/SEC] 

*  VIOOO  »  WIND  VELOCITY  AT  1000  CM  (CM/SEC] 

V1250  a  WIND  VELOCITY  AT  1250  CM  (CM/SEC] 

A  V1950  a  WIND  VELOCITY  AT  1950  CM  [CM/SEC] 

A 

IMPLICIT  NONE 
INTEGER  I,J,N 


REAL  RATIO, WIND_V,V_FRIC,V250, VIOOO, V1250,V1950,X(46, 6) ,Y 


OPEN ( 1 , FILEa » V_DATA . DAT  * , STATUSa » OLD  * , ERR=5 ) 
DO  Ial,46 

READd,*)  (X(I, J),J«1,6) 

END  DO 
CLOSE(l) 


IF  (Z.EQ. 1950.0)  Ja6 
IF  (Z.EQ. 1250.0)  Ja5 
IF  (Z.EQ. 1000.0)  J=4 
IF  (Z.EQ. 250.0)  Ja3 
IF  (Z.EQ. 0.0)  Ja2 

it 

DO  1-1,46 

IF  (X(I, J) .CT.WIND_V)  THEN 

RATIO«(WIND_V-X(I-l, J))/(X(I,J)-X(I-1,J)) 
V_FRIC=X(I-l,2)+(RATIO*(X(I,2)-X(I-l,2))) 
GOTO  1 

ENDIF 
END  DO 

A 

1  Z0a(0. 684 /V_rRIC)+( 4. 28E-5*(V_FRIC**2)) -0.0443 

V250a(V_FRIC/0.4)ALOG(250.0/ZO) 
V1000«(V_FRIC/0.4)*LOG(1000.0/Z0) 
V1250-(V_FRIC/0.4)*LOG(1250.0/Z0) 
V1950a(V_FRIC/0.4)*LOG(1950.0/ZO) 


WRITE(*,*) 

'V^FRIC 

m 

' ,V_FRIC 

WRITE(*,*) 

'V250 

m 

' ,V250 

WRITE(>»,*) 

'VIOOO 

m 

' , VIOOO 

WRITE(*,*) 

'V1250 

m 

» ,V1250 

WR1TE(*,*) 

'V1950 

' ,V1950 

RETURN 

WRITE(*,*) 

END 

'BAD  FILE 

OPENING  FOR  V_DATA.DAT 

Z,Z0 
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